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To Begin With... 


LINK68 is a one pass linking loader used to load and link object files produced by the Resi¬ 
dent 6800 Macro Assembler RA6800ML (available as a PAPERBYTE™ book). It allows 
separately translated relocatable object modules to be loaded and linked together to form a 
single executable load module. LINK68 produces a Load Map and a load module in Motorola 
MIKBUG loader format. 

The Linking Loader requires 2 K bytes of memory, a system console such as a Teletype, a 
system monitor such as the Motorola MIKBUG read only memory program of the ICOM 
Floppy Disk Operating System (FDOS), and some form of mass file storage such as dual cas¬ 
sette recorders of a floppy disk. A system monitor other than those mentioned above could be 
used by changing two 10 jumps in the Linking Loader (a jump to the terminal character input 
routine INEEE and a jump to the terminal character output routine OUTEEE) and by supply¬ 
ing functionally equivalent 10 routines for the user’s specific system. 

This book is divided into three major sections. THE LINKING LOADER provides detailed 
descriptions of the major routines of the Linking Loader. Included are details about the various 
routine linkages, pointers, flags, etc. This section provides the necessary background for using 
the Linking Loader as well as understanding its basic operations. 

INTERFACING AND USING THE LINKING LOADER gives information about the 10 con¬ 
ventions used, execution of the Linking Loader, and the input file format. Naturally, the exact 
10 interface needed for using the Linking Loader depends on the actual configuration of the 
user’s system. Therefore, tips are given on how to design 10 routines or modify those provided 
as examples to fit the user’s system. This section concludes with a discussion of the methods of 
preparing the loader for routine use in your system by reading it in and relocating it with a 
“bootstrap” version pre-linked in absolute format. 

The third section is the set of appendices which contain error messages generated by the 
Linking Loader, the Linking Loader and sample 10 driver assembly listings, the bar code 
representations of the various relocatable object modules of the loader, and an implementation 
guide for bootstrapping LINK68 and linking loader and 10 routines in absolute formats for the 
bootstrap process. 

Finally, a detailed INDEX is included for quick cross-reference to the Linking Loader’s 
routines. 

In this book is what we believe to be a complete set of documentation for the Linking 
Loader. Every flowchart, every listing, every item was included for one purpose: to provide the 
user with everything needed for the use or modification of the Linking Loader. 

In addition, it was the express purpose of the authors to provide everything necessary so that 
the user can easily learn what he or she needs to know about the system. By providing not only 
the source code and bar code listings, but also a detailed description of the major routines of 
the Linking Loader, we intend to provide the user with an opportunity to learn about the 
nature of linking loader design and implementation, as well as simply acquiring a useful soft¬ 
ware tool. It is through this kind of encouragement that we hope to advance the state of the 
art of home computing. 


Robert D, Grappef 
Jack £. Hemenway 




The Linking Loader 


LINK68 is a one pass Linking Loader designed to load 
and link relocatable input modules that were separately pre¬ 
pared by assembly or compilation. 

The input to L1NK68 is the set of output modules pro¬ 
duced by the Resident 6800 Macro Assembler RA6800ML 
(available as a PAPERBYTE™ book). LINK68 links the 
modules by matching Entry symbols in one module with 
External symbols in another module(s); it relocates the 
modules by assigning absolute addresses to relocatable 
address fields; it assigns absolute addresses from the Com¬ 
mon area to address fields which refer to the Common area; 
and finally, it prints a Load Map which displays the Entry 
symbols and their assigned absolute addresses. 

As LINK68 reads the input object modules, it keeps 
track of the Entry symbol definitions and External symbol 
references by storing them in a Symbol Table. The External 
references are matched with the Entry definitions and the 
correct absolute address of the Entry symbol is placed into 
the External reference’s address field, completing the 
linkage. 

L1NK68 handles the relocation of address fields marked 
as relocatable in the input module(s) by adding the starting 
address of the module being loaded to the offset in the 
address field marked relocatable. This absolute address is 
then placed into the address field of the loaded module. 

Address fields marked as Common in the input modules 
are handled by adding the starting address of the Common 
area to the offset in the address field and placing the sum 
into the address field of the loaded module. 

The Load Map (see figure 1) provides information about 
the loaded and linked module. The first line gives the start¬ 
ing and ending addresses of the load module. This is fol¬ 
lowed by a listing of all the Entry points in the loaded mod¬ 
ule along with their absolute addresses. If any of the Entry 
points are either unresolved or redefined this information is 
printed next to the absolute address. An Entry marked as 
unresolved is an External reference that was not resolved, 
ie: there was no Entry point found for that External sym¬ 
bol. The last line of the Load Map gives the limits of the 
Common area. 

Following are detailed descriptions of the major routines 
of the Linking Loader. 

LOAD 

This routine is the driving section for the Linking 
Loader. Bytes from the input object file are read one at a 
time and, depending on what they are, jumps are made to 
processing routines to load, relocate, link, etc. When an 
End of File (EOF) is encountered, the load limits, Load 


Figure 7: Sample Linking Loader run: 

(7) : the base address of the new ioad moduie. 

( 2 ) : the user's upper memory iimit. 

(3) ; the beginning address of the program's Common 

area, 

(4) .* the beginning and ending addresses of the ioad 

moduie, 

( 5 ) : the list of entry symbols for the ioad module, 

(?) : the addresses of the entry symbols for the load 
module, 

(7) .* the beginning and ending addresses of the load 
module's Common area (in this example , the Com¬ 
mon area was not used by the program). 

(?) ; the load module will not be saved. 


Note that items (7) > (D > Q) > anc ^ (D are l tems sup¬ 
plied by the user, and that all remaining items are produced 
by the Linking Loader. 


ENTER BASE ADDRESS: 0040 
ENTER UPPER MEMORY LIMIT: 3700 
ENTER START OF COMMON: 7000 


LOAD LIMITS: 
0040 0636* 


LOAD MAP 

7)-►LINK 0040 

INEEE 005B 
PDATAI 0474 
CRLF 049E 
DDRV 0609 
RESTR 0609 
UPDATE 060C 
MONTOR 060F 
GETB 0614 
OUTB 0620 
WREOF 062C 
INITIO 0634 
TABLES 0635 


<D 


COMMON. 

7000 7000*-(7) 


SAVE LOADED FILE ? V OR V N 
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LOADE 


Map, and Common limits are printed. Finally the loaded 
module is saved (if desired) and control returns to the 
system monitor. 

Calls: BADDR, CRLF, GETB, PDATA1 

Jumps: LOADE, LOADM, LOADN, LOADP, 

LOADR, LOADX 
Entrys: LOAD2 

Flags: NFLAG 

Pointers: BASE, BASESV, CBAS, CBASSV, HICBAS, 

LAST, NXTSYM, SYMEND, SYMTAB, 
TABLE, UPLIM 
Temporaries: BYTE 



Figure 2: The flowchart for LOAD, the main Linking 
Loader routine. 


This routine is executed whenever an End of File (EOF) 
is encountered in the input object file. The load limits, the 
Load Map and the Common limits are printed. Next the 
loader prompts the user to see if the loaded module is to be 
saved and if so, writes it out in absolute Motorola MIKBUG 
format. Control is then returned to the system monitor. 

Called By: LOAD 

Calls: CRLF, INEEE, OUT4HS, PDATA1, 

PRTSYM 

Jumps: MONTOR, PUNCH 

Pointers: BASESV, CBAS, HICBAS, LAST 



Figure 3: The flowchart for the LOADE routine. 
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LOADR 


LOADP 


This routine relocates an address field in the loaded 
module by adding the contents of the pointer BASE to the 
address field. Control is then returned to LOAD2. 

Called By: LOAD 

Calls: MEMCHK 

Jumps: LOAD2 

Pointers: BASE 


This routine is executed whenever a new program is en¬ 
countered in the input file. The length of Common used by 
the module is read and saved. The pointer or relocation 
base is reset to the start of the new module. Control then 
passes to LOAD2. 

Called By: LOAD 

Calls: none 

Jumps: LOAD2 

Pointers: BASE, CBAS, CBASSV, HICBAS 



Figure 4: The flowchart for the LOADR routine. 



Figure 5: The flowchart for the LOADP routine. 
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Figure 7: The flowchart for the LOADN routine. 



Figure 6: The flowchart for the LOADM routine. 



LOADM 

This routine relocates an address field that makes a ref¬ 
erence to Common from the loaded module. The contents 
of CBAS are added to the address field. Control then re¬ 
turns to LOAD2. 

Called By: LOAD 

Calls: MEMCHK 

Jumps: LOAD2 

Pointers: CBAS 


LOADN 

This routine handles the processing of Entry symbols 
from the input file. When an Entry symbol is found, it 
and its address value are stored in the Symbol Table (SYM- 


TAB). If the symbol is already in SYMTAB and has had an 
absolute address already placed in the symbol entry, it is 
an error. However, symbols may have been stored in 
SYMTAB by a prior encounter of an External instead of an 
Entry reference to that symbol. When an External reference 
is encountered before an Entry reference, the symbol is 
entered into the Symbol Table without an absolute address 
entry, and the location of the External reference in the 
loaded module is linked to the Symbol Table entry using a 
linked list. LOADN searches this linked list when it finds 
the symbol is already in SYMTAB and resolves all of the 
external references linked to the Symbol Table entry. 

Called By: LOAD 

Calls: LKPSYM, STOSYM 

Jumps: LOAD2 

Pointers: DESCRA, DESCRC, LAST, LC, SYMPTR 
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Figure 8: The flowchart for the LOADX routine. 


STOSYM 



LOADX 

This routine processes the External symbols found in 
the input file. It first searches the Symbol Table (SYMTAB) 
for the External symbol. If it is there and has an associated 
entry address defined, the address value is taken from the 
Symbol Table and stored in the address field of the external 
reference in the loaded module. If it is not already in the 
Symbol Table, it is stored in the Symbol Table and the ex¬ 
ternal reference location in the loaded module is stored as 
the symbol address value. The external reference location is 
set to hexdecimal FFFF, indicating the end of the linked 
list. 

If the External symbol is already in the Symbol Table 
but there is no Entry address associated with it, then there 
are one or more External references linked to the Symbol 
Table entry using a linked list. The new External reference 
location is then linked onto the end of this list. 


This routine stores symbols and their address values into 
the Symbol Table (SYMTAB). A linear table is used and the 
pointer NXTSYM points to the next available table loca¬ 
tion. The routine first checks to see if the Symbol Table is 
full, and if not, stores the symbol at the location pointed 
to by NXTSYM. It then increments NXTSYM before 
returning. 

Called By: LOADN, LOADX 

Calls: PDATA1 

Jumps: MONTOR 

Pointers: DESCRA, DESCRC, LC, NXTSYM, 

SYMEND, SYMPTR, SYMTAB 


LKPSYM 

This routine searches the Symbol Table for a symbol 
using a linear search. If the symbol is found, SYMPTR 
points to the location of the symbol in the table, register B 
is loaded with the INFO-BYTE, and the X register is loaded 
with the address value of the symbol. 

Called By: LOADN, LOADX 

Calls: COMPAR 

Jumps: none 

Pointers: COUNT, DESCRA, DESCRC, NXTSYM, 

STRNG1, STRNG2, SYMPTR, SYMTAB 


COMPAR 

This routine is used to compare variable length strings. 
The string lengths can be up to 255 bytes. When COMPAR 
is called the Index register X points to a parameter list of 
5 bytes: bytes 1 and 2 provide the address of the first 
string; bytes 3 and 4 the address of the second string; and 
byte 5, the number of bytes to be compared. 

On return from this routine, the results of the compari¬ 
son are reflected in the condition codes register. 

Example: 

BNE NOMATCH stringl is not equal to 
string2 

BEQ MATCH stringl is equal to string2 

Called By: LKPSYM, PRTSYM 

Calls: none 

Flags: none 

Pointers: Index register 

Temporaries: XSAV 


MEMCHK 

This routine checks to see if the memory available for 
the loaded modules is used up. If it is not, the routine re¬ 
turns. If it is, the routine prints an error message and jumps 
to LOADE to print a partial Load Map. 


Called By: LOAD Called By: LOAD, LOADM, LOADR 

Calls: LKPSYM, STOSYM Calls: CRLF, PDATA1 

Jumps: LOAD2 Jumps: LOADE 

Pointers: DESCRC, DESCRA, LAST, LC, SYMPTR Pointers: UPLIM 
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PRTSYM 

This routine prints the Load Map. It searches the Sym¬ 
bol Table for the lowest valued address entry and then 
prints the symbol and its address, flagging the entry as 
printed. The Symbol Table then is searched again, ignoring 
entries marked as already printed. When all the entries have 
been printed, the routine returns. 

Called By: LOADE 

Calls: COMPAR, CRLF, OUTEEE, OUT4HS, 

OUTS, PDATA1 
Jumps: none 

Pointers: COUNT, DESCRA, DESCRC, HIVAL, 

NXTSYM, STRNG1, STRNG2, SYMPTR, 

SYMTAB 


PUNCH 

This routine outputs the contents of the loaded program 
in absolute Motorola MIKBUG format. When it has fin¬ 
ished, it writes an End of File (EOF) byte, closes the out¬ 
put file, and passes control to the system monitor. 

Called By: LOADE 

Calls: OUTB, WREOF 

Jumps: UPDATE 

Pointers: BASESV, LAST, MCONT, TEMP 
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Interfacing and Using the Linking Loader 


10 Interface Conventions 

There are obviously several different methods of reading 
in an object module, linking it, and finally outputting the 
load module. The medium used could be memory only, in- 
put from and output to cassette tapes, input from and out¬ 
put to floppy disk, input from tape and output to disk, etc. 
Included in this section on interfacing are sample 10 rou¬ 
tines for tape to tape and disk to disk systems. This section 
assumes that the loader has itself been prepared for your 
system using the “bootstrap” version of the loader as de¬ 
scribed in Appendix C, Notes from a User: Implementation 
of Link68. 

Looking at the listings of the 10 tape and disk routines 
given in Appendices J and K, notice the various entry 
points (such as TABLES, OUTB, WREOF, etc.) declared at 
the beginning. (These same symbols are declared as External 
in the main loader program.) These are the names of the 10 
routines which the user must supply for his (her) own sys¬ 
tem. Note that some of the disk routines are supplied by 
the author’s ICOM Floppy Disk Operating System (FDOS), 
while for the tape version all of the routines had to be writ¬ 
ten from scratch. Again, this may or may not be similar to 
the user’s situation depending on the user’s system configu¬ 
ration and software. The routines supplied in the cassette 
tape example could serve as a basis for any routines needed 
by the user. 

Finally, the user should be aware that the actual length 
of this linking loader and all additional tables and routines 
as given throughout this book assume the use of the cas¬ 
sette tape 10 routines given in Appendix J. This means that 
if the user supplies his (her) own routines, the lengths and 
capacities described elsewhere in this book may be affected. 

Tape Driver Routines 

The following routines are part of a sample tape driver 
package. They handle the 10 functions for a dual cassette 
tape system. 

T1INZ 

This routine is used to initialize and start cassette tape 
for an input operation. 

Called By: RDBUF 
Calls: TDELY 

T1GET 

This routine is used to read a character from the input 


tape (Tape 1). It checks for read errors and returns the er¬ 
ror code in register B. If register B contains a 00 there were 
no errors. 

Called By: RDBUF 

Calls: none 

T1ISTP 

This routine is used to stop Tape 1 after an input opera¬ 
tion. 

Called By: RDBUF 

Calls: none 

T20TZ 

This routine is used to initialize and start Tape 2 for an 
output operation. 

Called By: WRITBF 

Calls: TDELY 

T20UT 

This routine is used to output a character to Tape 2. The 
character to be written is in register A. 

Called By: WRITBF, T20STP 

Calls: none 

T20STP 

This routine is used to stop Tape 2 after a write opera¬ 
tion. 

Called By: WRITBF 

Calls: T20UT 

RDBUF (Tape) 

This routine reads in blocks of source code from the in¬ 
put tape (Tape 1). It places the block of source code in 
INBUF. On return from this routine, the Index register 
points to the first location in the input buffer (INBUF) 

Called By: GETB 

Calls: 1NEEE, PDATA1, T1GET, T1INZ, 

T1ISTP 

WRITBF (Tape) 

This routine writes out blocks of object code to Tape 2 
from the output buffer. The variable OTPTR contains the 
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address of the last byte to be written out when the routine 
is called, and contains the address of the first byte in the 
output buffer when the routine returns. 

Called By: OUTB, WREOF 

Calls: T20TZ, T20STP, T2QUT 


Disk Driver Routines 


The disk driver routines are all in the bootstrap erasable 
read only memory included in the ICOM Floppy Disk 
Operating System (FDOS): 


RIX - 

WRT — 

UPDATE - 
FDOS - 


Read a byte from the disk, placing it in the 
A register. 

Write a byte to the disk from the A register. 
The carry flag is set if End of File (EOF). 
Close an output file. 

Load the Floppy Disk Operating System and 
pass control to it. 


Execution of the Linking Loader 

These instructions are written assuming two different 
ways to load and execute the Linking Loader, depending on 
whether the object code for the Loader itself and the object 
code of the target program are on cassette tape or diskette. 
The main difference is the necessity of the ICOM Floppy 
Disk Operating System (FDOS) for the diskette. The pro¬ 
cedures would be similar for any tape or disk system other 
than the two mentioned. 

Cassette Tape Files 

To load the Linking Loader (LINK68) from the cassette 
tape is easily accomplished when the object code for it is 
stored in absolute Motorola MIKBUG object code format 
on the typical system. Using the MIKBUG “L” function 
loads the Linking Loader from tape. The MIKBUG “M” 
function sets the entry point of L1NK68 (3000 hexadeci¬ 
mal) into memory locations A048 and A049 (hexadecimal). 
Note that using the “M” function merely sets up a jump 
address for the start of the Loader. If MIKBUG is not being 
used as a monitor, this may be accomplished in other ways. 

LINK68 executes as a one pass linking loader, reading 
the input target program object code from the cassette 
once, and optionally placing the linked load module onto 
a second cassette tape. The object code tape would go in 
the first cassette recorder, the load module tape in the 
second tape machine. Ready the cassette tape in tape drive 
1 for a read operation. 

After this setup, using the MIKBUG “G” function begins 
execution of the Linking Loader, which starts by 
requesting: 

ENTER BASE ADDRESS: 

Enter the 4 hexadecimal digit base address at which the 
load module is to begin. Next: 

ENTER UPPER MEMORY LIMIT: 
which is a request for the last memory location in the user’s 


system that is available for loading. Finally: 

ENTER START OF COMMON: 

where the beginning address of the memory being used 
for the Common area is entered. LINK68 then reads, loads, 
and links the input file. 

When an End of File (EOF) condition is encountered on 
the input tape, the Linking Loader types: 

EOF:REPOSITION TAPE AND TYPE CR OR TYPE A 

‘D’ IF DONE 

If there are more modules to be loaded and linked, place 
the appropriate cassette tape into the input drive and set 
the controls for a read operation. Then type a carriage re¬ 
turn (CR). The loader then loads the new file. When there 
are no more files to be loaded, type a “D”. 

When LINK68 completes loading and linking, it types 
the load limits of the new load module: 

LOAD LIMITS: 

“XXXX YYYY” 

where “XXXX” is the first memory location of the load 
module and the “YYYY” is the last memory location of 
the load module. LINK68 then lists the Load Map (see 
figure 1) consisting of all the Entry symbols and their asso¬ 
ciated loaded addresses. 

The Linking Loader’s final message is to enquire: 

SAVE LOADED FILE? ‘Y’OR <N’ 

If the load module is to be saved, place a tape into tape 
drive 2 and set the controls for a write operation. Then 
type “Y”. LINK68 saves the load module in the standard 
Motorola MIKBUG load format and returns control to the 
system monitor. If “N” is typed in response to the prompt, 
the load module is not saved, and control returns directly 
to the system monitor. 

If there has been any tape read errors in the above pro¬ 
cess, the Linking Loader messages: 

TAPE ERROR 

and stops the input tape. The user should reposition the 
tape to the beginning of the block that produced the error 
and type a carriage return (CR). LINK68 will then attempt 
to reread the tape. 

Note that the loaded program can now be executed by 
using the Motorola MIKBUG function “M” to place the 
module’s entry address into memory locations A048 and 
A049 (hexadecimal) and then using the “G” function to 
begin execution. 


Diskette Files 

The Linking Loader is located on diskette under the 
name “LINK” and is loaded and executed using the ICOM 
Floppy Disk Operating System (FDOS) command 
“RUNGO”. But before the Linking Loader can be exe¬ 
cuted, the input object modules should be merged into one 
file by using the “MERGE” command. 

Example: 

MERGE, %TEST,PROG1,PROG2,PROG3 
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This merges the 3 programs PROG1, PROG2, and 
PROG3 into one file named “%TEST.” %TEST would then 
be the input to the Linking Loader. 

Example: 

RUNGO,LINK,%TEST,TEST 

This loads LINK, opens %TEST for input, opens TEST 
for output, and executes LINK. 

The Linking Loader begins execution by requesting the 
base address of the load module: 

ENTER BASE ADDRESS: 

to which the user enters the 4 hexadecimal digit base ad¬ 
dress at which the load module is to begin. Next: 

ENTER UPPER MEMORY LIMIT: 

which is a request for the last memory location in the user's 
system that is available for loading. And finally: 

ENTER START OF COMMON: 

where the beginning address of the memory being used for 
the Common area is entered. LINK68 then reads, loads, 
and links the input file. 

When the Linking Loader completes loading and linking, 
it types the load limits of the new load module: 

LOAD LIMITS: 

“XXXX YYYY” 

where “XXXX" is the first memory location of the load 
module and “YYYY" is the last location of the load mod¬ 
ule. LINK68 then lists the Load Map (see figure 1) consist¬ 
ing of all the Entry symbols and their associated loaded 
addresses. 

The Linking Loader’s final message is to enquire: 

SAVE LOADED FILE? ‘Y’OR‘N’ 

If the load module is to be saved, type a “Y" and LINK68 
saves the file under the name given to the output file when 
LINK68 was executed. Control then returns to the disk 
operating system. If “N" is typed in response to the 


prompt, the load module is not saved and control returns 
directly to the disk operating system. 

Note that the loaded program can now be executed by 
using the Motorola MIKBUG function “M" to place the 
module’s entry address into memory locations A048 and 
A049 (hexadecimal), and then using the “G" function to 
begin execution. 

Input Relocatable File Formats 

The relocatable input file contains all of the information 
needed by the Linking Loader to process and load files. 
There are six different types of information present in the 
input file: 

1. Object code. HHHHHHHHHH.H 

2. Relocatable address fields - - HHHHR 

3. Common address fields-HHHHM 

4. Name fields.HHHHP^SSSSHHHHRN 

a be 

5. Entry fields.SSSSSSHHHHRN 

d e 

6 . External fields.SSSSSSX 

f 

where “SSSSSS” is a 6 character Symbol 

H is a hexadecimal character representing half a byte of 
object code 

R is the relocation indicator 
M is the Common indicator 
P is the Program indicator 
N is the Entry indicator 
X is the External indicator 

and 

a is the Common length 
b is the Program name 
c is the Entry value 
d is the Entry symbol 
e is the Entry value 
f is the External symbol. 


RELOCATABLE INPUT TAPE FORMAT 

The Linking Loader input file is object code prepared by the Relocatable Macro Assembler and when recorded on audio 
cassette tape it is arranged in blocks. The maximum length (n+2, where n is the length of the object code) is set by the 
output buffer in the Macro Assembler. It is normally set to 512 bytes. The format is: 

Bytes 1 to n Relocatable object code and information for the Linking Loader 

Byte n+1 End of Transmission Block (ETB) (17 hexadecimal) 

Byte n+2 Checksum character byte; it is the one’s compliment of the summation of bytes 1 to n. 

The last block on the tape is followed by an End of File (EOF) block; it contains only one byte, an EOF character (04 
hexadecimal). 
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APPENDICES 




Appendix A: Error Messages 


Apart from the tape error messages already discussed, 
the Linking Loader provides the following error messages: 

SYMBOL TABLE OVERFLOW - 

The Linking Loader’s Symbol Table has been filled 
up. Reduce the number of External/Entry symbols 
or add additional space to the Linking Loader’s Sym¬ 
bol Table. 

****** MEMORY OVERRUN ******- 

There was not enough memory available to load the 
entire program. 

REDEFINED 

UNRESOLVED — 

For each entry listed in the Load Map, one or both of 
these error messages may be printed if the symbol is 
not resolved or is defined in more than one module. 


Appendix B: Capacities 


Linking Loader (total) 
Linking Loader (actual code) 
Cassette Tape 10 Routines 
Symbol Table (SYMTAB) 


2 K 
1.5 K 
.5 K 


75 entries, 9 bytes 
per entry 




APPENDIX C 

Notes from a User: Implementation of Link68 

by Walter Banks , University of Waterloo 


Implementation of Link68 is accomplished by a bootstrap procedure which ultimately results in a linker 
specifically tailored to a unique system. This is accomplished with the use of two absolute modules pre¬ 
sented in Appendices D and F. 

In normal use RA6800ML generates relocatable object modules which are linked together by LINK68 to 
form a load module of absolute code. The linker itself is generated as a relocatable load module requiring 
linking with input and output drivers to form a usable load module. This has been overcome with the use of 
two absolute load modules found in Appendices D and F. The LINKER load module contains a copy of the 
linker, linked to location $0100 without any external references satisfied. The overlay modules contain 
external reference code for use with a standard MIKBUG-based system. This overlay is designed to facilitate 
easy initial implementation of LINK68 and serve as a template for user developed software. 

The linker calls external routines through the use of a jump table which starts at location $0106. Sub¬ 
routine calls within the linker go through the jump table to the overiayed routines and control is returned 
to the linker with an RTS instruction. 

The IO structure of LINK68 assumes four separate data paths. INCH and OUTCH are input and output 
byte routines to the user console device. INB and OUTB are communication paths from the linker to mass 
storage devices such as disk, tape, or paper tape. They are used to load the relocatable modules for linking 
and output absolute code modules. 

The jump table calls GETB which is a subroutine used to get data from a relocatable object input stream. 
The overlay prompts users to load new tapes when end-of-tape is sensed. 

The calls to MONTOR and UPDATE are used to return control to the user supervisor program. UPDATE 
expects the user routine to close all open files. MONTOR is a direct entry to the user supervisor. 

INITIO calls a routine which initializes 10 devices and drivers. It is not needed in the simple overlay; 
however, room is left for a subroutine jump to a new program. 

WROEOF writes an end-of-file ($04) to the output data stream. 

An exception to the use of the jump table is the reference to TABLES. TABLES is used as a pointer to a 
data area of memory and is used only as a pointer. It must be noted that the first two locations in memory 
pointed to by TABLES must contain the address of TABLES+2. 

Users can load a simple version of the linker by loading the absolute code module found in bar code 
form in Appendix E. The overlay package may be loaded on top of the linker and the combined code can 
be dumped to a convenient mass storage device such as a floppy disk or cassette tape. Future modifications 
can be made in two ways. First, the overlay package can be tailored to the unique requirements of a parti¬ 
cular system. The absolute code may be dumped generating a new load module. Second, the whole package 
of linker and overlay can be linked from object files and a new load module generated. 




APPENDIX D 

LINK68 Assembly Language Object Code in Absolute 

Hexadecimal Format 
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The listing below gives the absolute object code for the linking loader LINK68 in hexadecimal format. 
This listing can be used to manually load the program or to verify entry of the program via the PAPER- 
BYTETM b ar coc j e representation in Appendix E. Note that each line in this listing does not correspond 
directly to the variable length records of the bar codes, but uses a fixed length of 16 data bytes per line. 
The data is preceded by a 2 byte address field. Note that this program begins at hexadecimal 0100. Infor¬ 
mation on how to use this version of the linking loader to bootstrap LINK68 for the first time is given in 
Appendix C, with Appendix F giving details of 10 routines appropriate for the bootstrap process. 
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Beginning on the following page is a complete machine readable representation (PAPERBYTE™ bar 
codes) of the object code for Grappel and Hemenway’s linking loader LINK68. The object code was created 
by assembling LINK68 using the relocatable macro assembler, available as the PAPERBYTE™ book 
RA6800ML: An M6800 Relocatable Macro Assembler (ISBN 0-931718-104). See Appendix G for a 
listing of the 6800 assembly language source code of the linking loader. 

This representation uses the absolute loader format, in which each bar code frame (one line of bar codes 
running from top to bottom of the page) contains a 2 byte address followed by data which is loaded in 
ascending order starting at that address. A hexadecimal listing that can be used to verify the input from 
bar codes is given in Appendix D. For details on the frame format and absolute loader format used in this 
and other PAPERBYTE™ books, see PAPERBYTE publication Bar Code Loader by Ken Budnick. The 
book contains a brief history on bar codes, a general bar code loader algorithm with flowcharts, and com¬ 
plete program listings for 6800,6502, and 8080 or Z-80 based systems. 

Information on how to use this version of the linking loader to bootstrap LINK68 for the first time is 
given in Appendix C, with Appendix F giving details of 10 routines appropriate for the bootstrap process. 
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0000000000000000000000000000000000000000 
00000000001 1 1 1 1 1 1 1 I 122222222223333333333 

0123456789012345678901234567890123456789 


0000000000000000000000000000000000000000 
II I 1 11 1 II 11 11222222222222333333333333344 

0 1 235679ABCEF02345789ACDE0 1 235678ABCDF0 1 
025E48C049E38C048C1 6AE27B048C048C1 5AF38C 
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Input and Output Routines for LINK68 in Absolute Format with 
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These overlay modules contain external reference code to the linking loader UNK68 for use with a stan¬ 
dard MIKBUG-based system. This overlay is designed to facilitate easy initial implementation of LINK68 
and serve as a template for user developed software. These routines can be used in conjunction with the 
version of LINK68 given in Appendices D and E to bootstrap LINK68 for the first time. Details of the 
bootstrap process are given in Appendix C. 

On page 29 is the machine readable representation (PAPERBYTETM barcodes) of the object code of 
the 10 routines listed below. The representation uses the absolute loader format, in which each bar code 
frame (one line of bars running from top to bottom of the page) contains a 2 byte address followed by 
data which is loaded in ascending order starting at that address. 

For details on the frame and absolute loader format used in this and all PAPERBYTETM books, see 
the PAPERBYTE publication Bar Code Loader by Ken Budnick. This book contains a brief history on bar 
codes, a general bar code loader algorithm with flowcharts, and complete program listings for 6800, 6502, 
and 8080 or Z-80 based systems. 
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OUTPUT BYTE IN ACC A 

00026 


0534 

PDAT1 

EQU 

START+S04 34 PRINT CHAR STRING 

00027 


055E 

CRLF 

EQU 

START+$045E PRINT <CR> <LF> 

00029 

06C9 



ORG 

START+S05C9 START AT THE END OF 

00030 



♦ 



THE LINKER 

00032 

06C9 

01 

INITIO 

NOP 


INITIALIZE I /O DRIVERS 

00033 

06CA 

01 


NOP 



00034 

06CB 

01 


NOP 



00035 

06CC 

39 


RTS 



00037 

06CD 

FF 072F 

GETB 

STX 

DXSV 

SAVE INDEX REGISTER 

00038 

06 DO 

BD El AC 

GET1 

JSR 

INB 

INPUT A DATA CHARACTER 

00039 

06D3 

81 04 


CMP A 

#$04 

IS IT END OF FILE 

00040 

06D5 

26 16 


BNE 

XIT 

NO EXIT 

00041 

06D7 

CE 0700 


LDX 

#EOF 

YES PRINT EOF MESSAGE ON 

00042 



* 



CONSOLE 

00043 

06DA 

BD 0534 


JSR 

PDAT1 


00044 

06DD 

BD 01 IB 

RD6 

JSR 

INEEE 

FOR CONSLE RESOPONSE 

00045 

06E0 

8 1 0D 


CMP A 

#$0D 

<CR> START READING NEXT TAPE 



00046 

06E2 

27 

EC 


BEQ 

GET1 


00047 

06E4 

81 

44 


CMP A 

#'D 

D THIS WAS THE LAST TAPE 

00048 

06E6 

26 

F5 


BNE 

RD6 


00049 

06E8 

FE 

072F 


LDX 

DXSV 

RESTORE INDEX 

00050 

06EB 

0D 



SEC 


SET CARRY END OF FILE 

00051 

06 EC 

39 



RTS 



00052 

06ED 

8 1 

OD 

XIT 

CMP A 

#$0D 


00053 

06EF 

27 

DF 


BEQ 

GET1 


00054 

06F1 

8 1 

2 F 


CMP A 

#7 

STRIP OFF CONTROL CHARACTERS 

00055 

06F3 

2D 

DB 


BLT 

GETl 


00056 

06F5 

FE 

07 2F 


LDX 

DXSV 

RESTORE INDEX REGISTER 

00057 

06F8 

OC 



CLC 


CLEAR CARRY NOT EOF 

00058 

06F9 

39 



RTS 



00060 

06 FA 

96 

04 

WREOF 

LDA A 

4 

LOAD ASCI I EOF 

00061 

06 FC 

BD 

E1D1 


J SR 

OUTB 

OUTPUT IT TO DATA STREAM 

00062 

06FF 

39 



RTS 



00064 

0700 

ODOA 

EOF 

FDB 

SODOA 

<CR><LF> 

00065 

0702 

454F46 


FCC 

/EOF: 

NEXT TAPE,TYPE CR/ 


0705 

3A204E 






0708 

455854 






070B 

205441 






070E 

50452C 






071 1 

545950 






07 14 

452043 






07 1 7 

52 






00066 

07 1 8 

ODOA 


FDB 

SODOA 

<CR><LF> 

00067 

07 1A 

545950 


FCC 

/TYPE 

"D" IF DONE/ 


07 ID 

452020 






0720 

202244 






0723 

222049 






0726 

462044 





00068 

072C 

ODOA 


FDB 

SODOA 

<CR><LF> 

00069 

072E 

04 



FCB 

4 


00071 

072 F 

0002 

DXSV 

RMB 

2 

SAVE SPACE FOR TEMP STORAGE OF 

00072 




* 



THE INDEX REGISTER 

00074 

073 1 

0733 

TABLES 

FDB 

*+2 

START OF SYMBOL TABLE 

00076 





END 




28 



0000000000000000000000000000000000000000 
00000000001 1 1 1 1 1 1 1 1 122222222223333333333 

0123456789012345678901234567890123456789 


00000000 
116 6 6 7 7 7 

0 1 C D F 0 1 3 

6 A 9 D I 5 A 1 



0000000000000000000000000000000000000000 
00000000001 1 1 1 1 1 1 11 122222222223333333333 

0123456789012345678901234567890123456789 
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APPENDIX G 

Assembly Language Source Listing of LINK68 




This assembly was executed using the relocatable macro assembler RA6800ML available in the PAPER- 
BYTETM book RA6800ML: An M6800 Relocatable Macro Assembler by Jack Hemenway (ISBN 
0-931718-10-4). The object code in the assembly listing can be used without relocation if the program is 
loaded at location zero (hexadecimal) in memory. When creating a final object module for the loader, hand 
entered overlays for the Motorola MIKBUG monitor or the ICOM Floppy Disk Operating System 10 
routines will be necessary. The routines given in Appendices J and K can be used directly with their respec¬ 
tive operating system, or as guidelines for coding patches to interface the above systems or other monitor 
programs. 


OOOu 

0000 

N 


NAM LINK LINKING LOADER 

0081 

BD 

03 FA 

R 



JSR 

BA DDR 

GET VALUE IN HEX 





★ 



0084 

FF 

004b 

R 



STX 

UPLIM 

INIT 





★ 

C COPYRIGHT 1977 BY 

00 o 7 

BD 

045E 

R 



JSR 

CRLF 






* 

ROBERT D. GRAPPEL LEXINGTON MASS. 





★ 









* 

AND JACK E. HEMENWAY BOSTON MASS. 

008A 

CE 

04AF 

R 



LDX 

#MSGB 

GET START OF COMMON 





+ 

ALL RIGHTS RESERVED 

00 BD 

BD 

0434 

R 



JSR 

PDATAI 






★ 



0090 

BD 

03 FA 

R 



JSR 

BADDR 

INIT 





★ 



0093 

BD 

04 bE 

R 



JSR 

CRLF 


0000 

8E 

A042 



LDS #$A042 


0096 

FF 

003B 

R 



STX 

CBAS 

INIT 

0003 

/E 

0047 

R 


JMP LOAD 


009V 

FF 

003D 

R 



srx 

CBASSV 

INIT 





* 



009C 

FF 

003F 

R 



STX 

HICBAS 

INIT 

000 0 

7E 

0000 

X 


EXT TABLES 

START OF SYMTAB 

009F 

FE 

0021 

R 



LDX 

BASE 

GET START OF MEMORY 

ooov 

7 c 

0000 

X 


EXT MONTOR 

MONITOR 





★ 





oooc 

7E 

0000 

X 


EXT GETB 

READ A BYTE 





* 





000F 

7E 

0000 

X 


EXT OUTb 

WRITE A BYTE 

00A2 

BD 

OOOC 

R 

L0AD2 

JSR 

GETB 

GET A BYTE 

0012 

7E 

0000 

X 


EXf WREOF 

WRITE EOF 

00 A b 

2 j 

52 




BCS 

LOADE 

EOF 

0015 

7E 

0000 

X 


EXT INITIO 

INIT FOR I/O 





* 





00 Id 

/E 

0000 

X 


EXT UPDATE 

CLOSE AN OUTPUT FILE 

00 A 7 

81 

00 




CMP 

A #$00 

NULL? 





* 



00A9 

27 

F7 




BEQ 

L0AD2 

YES 

oo lb 

001 B 

N 


ENT INEEE 


OOAb 

81 

50 




CMP 

A #'P 

PROGRAM MODULE? 

00 lb 

0434 

N 


ENT PDATAI 


OOAD 

26 

03 




BNE 

★*►5 


oo Ib 

045E 

N 


ENT CRLF 






★ 









* 



OOAF 

7E 

017B 

R 



JMP 

LOADP 

YES 

oo tb 

7E 

El AC 


I NEEE 

JMP $E1 AC INPUT 

A CHAR 

00B2 

81 

4E 




CMP 

A #'N 

ENTRY ? 

0011 

/ c 

b I 0 1 


OMTEEE 

JMP $E1D1 OUTPUT A CHAR TO TTY 

00 B4 

26 

03 




BNE 

★+5 

NO 

0021 

0002 


BASE 

RMB 2 BASE 

ADDRESS 





★ 





0023 

0001 


NFLAG 

RMB 1 NIBBLE FLAG 00=LEFT, FF=RIGHT 

00B6 

7E 

01 Cb 

R 



JMP 

LOADN 

YES 

0024 

0001 


BYTE 

RMB 1 TEMPORARY LOCATION 





* 





0025 

0002 


LC 

RMB 2 LOCATION COUNTER 

OOBV 

81 

58 




CMP 

A #'X 

EXTERNAL ? 

0027 

0002 


DESCRA 

RMB 2 DESCRIPTOR ADDRESS 

OOBB 

26 

03 




BNE 

*+5 

NO 

002V 

0001 


DESCRC 

RMB 1 DESCRIPTOR COUNT 





* 





002A 

0002 


NXTSYM 

RMB 2 NEXT 

ENTRY IN SYMTAB 

OOBD 

7E 

0232 

R 



JMP 

LOADX 

YES 

002C 

0002 


SYMTAB 

RMB 2 SYMBOL TABLE 





★ 





002E 

0002 


SYMEND 

RMB 2 END OF TABLE 

0000 

81 

4D 




CMP 

A #'M 

"COMMON"? 

0030 

0002 


SYMPTR 

RMB 2 SYMTAB POINTER 

0002 

26 

03 




BNE 

*+5 

NO 

0032 

0002 


STRNGI 

RMB 2 PARM 

LIST 





★ 





0034 

0002 


STRNG2 

RMB 2 FOR 


00C4 

7E 

01 AA 

R 



JMP 

LOADM 

YES 

0036 

0001 


COUNT 

RMB 1 COMPAR 





★ 





0037 

0002 


XSAV 

RMB 2 TEMP 


00C7 

81 

52 




CMP 

A #'R 

RELOCATABLE ? 

003V 

0002 


HIVAL 

RMB 2 HIGHEST COMMON COUNT 

OOCV 

26 

03 




BNE 

★+5 

NO 

003b 

0002 


CBAS 

RMB 2 START OF COMMON 





★ 





003D 

0002 


CBASSV 

RMB 2 CBAS 

SAVE TEMP 

OOCB 

7E 

0160 

R 



JMP 

LOADR 

YES 

003b 

0002 


HICBAS 

RMB 2 END OF COMMON 





* 





004 1 

0002 


BASESV 

RMB 2 FIRST LOCATION 





* 

CONVERT TWO ASCII 

BYTES TO ONE HEX BYTE 

0043 

0002 


LAST 

RMB 2 LAST 

LOCATION 





it 





004^ 

0002 


UPLIM 

RMB 2 UPPER 

1 MEMORY LIMIT 

OOCE 

80 

30 




SUB 

A #$30 






* 



00 DO 

81 

09 




CMP 

A #$09 






★ 



0002 

2F 

02 




BLE 

★+4 






* LOAD 

IS THt ENTRY POINT TO THE LOADER 

0004 

80 

07 




SUB 

A #$07 


004/ 

BD 

00 Ib 

R 

LOAD 

JSR INITIO 

IMI T THE I/O 

00D6 

7D 

0023 

R 



TST 

NFLAG 

WHICH NIBBLE ? 

004 A 

Ft 

0007 

R 


LDX TABLES+I 

POINT TO START OF SYMTAB 

00D9 

26 

OC 




BNE 

RNIBL 

RIGHT 

004 D 

86 

A3 



LDA A #$A3 

ADD SPACE FOR 75 SYMBOLS 





★ 





004 F 

C6 

02 



LOA B #$02 


000B 

48 





ASL 

A 

LEFT 

OOdI 

Ab 

01 



ADD A 1 f X 

ADD TO START OF SYMTAB 

00 DC 

48 





ASL 

A 


00b 3 

E9 

00 



ADC 0O,X 


00 DD 

45 





ASL 

A 


OObb 

B7 

002F 

R 


STA A SYMEND+I 

1NIT 

OODE 

48 





ASL 

A 


00b8 

F7 

002 E 

R 


STA B SYMEND 


OODF 

B7 

0024 

R 



STA 

A BYTE 

SAVE LEFT NIBBLE 

005B 

EE 

00 



LDX 0,X 

GET START OF SYMTAB 

00E2 

73 

0023 

R 



COM 

NFLAG 

SET FOR RIGHT NIBBLE 

005D 

FF 

002C 

R 


STX SYMTAB 

I NIT 

OObb 

20 

BB 




BRA 

L0AD2 


0060 

FF 

002A 

R 


STX NXTSYM 

INIT 





★ 









★ 



00E7 

F6 

0024 

R 

RNIBL 

LDA 

b BYTE 

GET LEFT NIBBLE 

0063 

7F 

0023 

R 


CLR NFLAG 

NFLAGi=LEFT 

00 E A 

1 B 





ABA 



0066 

BD 

04b£ 

R 


JSR CRLF 


00 EB 

A7 

00 




STA 

A 0,X 






★ 



OOED 

FF 

0043 

R 



STX 

LAST 

LOADED ADDRESS 

006V 

CE 

04/F 

R 


LDX #MSGL 

GET BASE ADDRESS 

00 FO 

08 





I NX 



00 6C 

BD 

0434 

R 


JSR PDATAI 


OOFI 

BD 

03E1 

R 



JSR 

MEMCHK 

CHECK MEMORY LIMIT 

00 6F 

BO 

03 FA 

R 


JSR BADDR 

GET VALUE IN HEX 

00 F4 

73 

0023 

R 



COM 

NFLAG 

SET FOR LEFT NIBBLE 

00 12 

BD 

045E 

R 


JSR CRLF 


OOF/ 

20 

A9 




BRA 

L0AD2 


007b 

FF 

0021 

R 


STX BASE 

INIT 










007b 

FF 

0041 

R 

if 

STX BASESV 

INIT 





it 

EOF 

FINISH LOAD 


007B 

CE 

0494 

R 


LDX #MSGA 

GET UPPER MEMORY LIMIT 

OOFV 

BD 

04 jE 

R 

LOADE 

JSR 

CRLF 


00/h 

BD 

0434 

R 


JSR PDATAI 


00 FC 

BD 

04b E 

R 



JSR 

CRLF 



33 



00 FF 

CE 

04 EC 

R 


LDX #MSGE 

"Load limits" 

OlAb 

09 




DEX 



0102 

BO 

0434 

R 


JSR PDATAI 


0 1 AC 

A6 01 



LDA 

A 1 ,X 

GET ADDRESS 

01 Ob 

BO 

04 bb 

R 


JSR CRLF 


OlAb 

E6 

00 



LDA 

B 0,X 


0106 

CE 

004 1 

R 


LDX #BASESV 

PRINT STARTING ADDRESS 

01 BO 

BB 

003C 

R 


ADD 

A CBAS*1 

ADD IN BASE OF COMMON 

OIOB 

BO 

0444 

R 


JSR 0UT4HS 


0IB3 

F9 

003B 

R 


ADC 

B CBAS 

01 Oh 

CE 

0043 

R 


LDX #LAST 


01 B6 

A7 

01 



STA 

A 1 ,X 

STORE 

01 1 1 

BO 

04 44 

R 


JSR 0UT4HS 

PRINT END ADDRESS 

01 BB 

E7 

00 



STA 

B 0,X 


0 114 

BO 

04bh 

R 


JSR CRLF 


01 BA 

08 




I NX 


POINT TO NEXT ADDRESS 

011/ 

BO 

04bE 

R 


JSR CRLF 


01 BB 

BD 03EI 

R 


JSR 

MEMCHK 

CHECK MEMORY LIMIT 





* 



01 Bb 

08 




INX 



01 IA 

BO 

0342 

R 


JSR PRTSYM 

PRINT LOAD MAP 

OIBF 

BD 

03EI 

R 


JSR 

MEMCHK 

CHECK MEMORY LIMIT 

01 10 

BO 

04 bb 

R 


JSR CRLF 

"COMMON" 





★ 




0120 

CE 

04C7 

R 


LDX #MSGC 


0IC2 

7E 

00A2 

R 


JMP 

L0AU2 


0123 

BO 

0434 

R 


JSR PDATAI 






★ HANXE ENTRY SYMBOL 

0126 

BO 

04b E 

R 


JSR CRLF 






★ 




012V 

CE 

003B 

R 


LDX #CBAS 

PRINT START OF COMMON 

01CS 

C6 

06 


LOADN 

LDA 

B #6 

6 CHARS/SYMBOL 

01 2C 

BO 

0444 

R 


JSR 0UT4HS 


01C7 

F7 

0029 

R 


STA 

B DESCRC 

01 2F 

FE 

00 3F 

R 


LDX HICBAS 


01CA 

09 




DEX 



0132 

BC 

003B 

R 


CPX CBAS 

ANY COMMON? 

01CB 

09 




DEX 



013b 

27 

04 



BEO LOAOEJ 

NO 

01 OC 

A6 

00 



LDA 

A 0,X 

LC**ENTRY VALUE 





★ 



OICE 

B7 

0025 

R 


STA 

A LC 


013/ 

09 




DEX 

HICBAS*=HICBAS-1 

OIDI 

A6 

01 



LDA 

A 1 t X 


013b 

FF 

003F 

R 


STX HICBAS 


0IU3 

B7 

0026 

R 


STA 

A LC+1 






★ 



0ID6 

09 




DEX 


BACK UP TO START OF SYMBOL 

013B 

CE 

003F 

R 

L0A0E1 

LDX #HICBAS 

PRINT END OF COMMON 

01D7 

09 




DEX 


013b 

BD 

0444 

R 


JSR 0UT4HS 


01DB 

09 




DEX 



0141 

BD 

04 bE 

R 


JSR CRLF 


0ID9 

09 




DEX 



0144 

BO 

04 bb 

R 


JSR CRLF 


01 DA 

09 




DEX 







★ 



01 DB 

09 




DEX 







★ 



01 DC 

FF 

0043 

R 


STX 

LAST 

INIT LAST 

014/ 

CE 

Ob 1 8 

R 


LUX #SAVFIL 


01 OF 

FF 

0027 

R 


STX 

DESCRA 

POINT TO SYMBOL 

0I4A 

BO 

0434 

R 


JSR PDATAI 

PRINT PROMPT 

0IE2 

BD 0205 

R 


JSR 

LKPSYM 

01 4U 

BO 

00 IB 

R 


JSR INEFE 


01 Eb 

Cl 

FF 



CMP 

B #$FF 

SYMBOL IN TABLE ? 

OlbO 

81 

b9 



CMP A #'Y 

SAVE LOADED FILE? 

0IE7 

26 

OE 



BNE 

L0ADN4 

YES 

01 b2 

26 

06 



BNE *+8 

NO 





* 


01o4 




* 



01E9 

BD 

0295 

R 


JSR 

STOSYM 

STORE SYMBOL 

BO 

04bE 

R 


JSR CRLF 

YES 

01 EC 

FE 

0030 

R 


LDX 

SYMPTR 


01b/ 

/E 

Ob 38 

R 

it 

JMP PUNCH 


01EF 

60 

08 



INC 

8tX 

SET DEFINED BIT 

01 dA 

BO 

04b E 

R 


JSR CRLF 


01 FI 

FE 

0043 

R 

LOADN3 

LDX 

LAST 

RESTORE POINTER 

0150 

id 

0009 

R 


JMP MONTOR 

Aa DONE 

0IF4 

7E 

00A2 

R 


JMP 

L0AD2 





* RELOCATE ADDRESS 






* 








★ 



0IF7 

Cb 

01 


LOADN4 

BIT 

B #$01 

ALREADY DEFINED ? 

0160 

09 



LOADR 

DEX 

POINT TO ADDRESS 

01 F9 

27 

09 



BEQ 

L0ADN6 

NO 

0161 

09 




DEX 






* 




0162 

A6 

01 



LDA A 1 ,X 

GET ADDRESS 

01 FB 

CA 

80 



ORA 

B #$80 

SET REDEFINED BIT 

0164 

E6 

00 



LDA B 0 ( X 


01FD 

FE 

0030 

R 


LDX 

SYMPTR 


0166 

BB 

0022 

R 


ADD' A BASE+1 

ADD IN RELOCATION 

0200 

E7 

08 



STA 

B 8«X 


0169 

F9 

0021 

R 


ADC B BASE 


0202 

20 

ED 



BRA 

L0ADN3 


016C 

A7 

01 



STA A 1,X 

STORE 





★ 




0I6E 

E7 

00 



STA B O f X 


0204 

FF 

0027 

R 

L0ADN6 

STX 

DESCRA 


0170 

08 




I NX 

POINT TO NEXT ADDRESS 

0207 

B6 

0025 

R 


LDA 

A LC 

ADDRESS OF SYMBOL 

01 71 

BO 

03EI 

R 


JSR MEMCHK 

CHECK MEMORY LIMIT 

020A 

F6 

0026 

R 


LDA 

B LC+1 


0174 

08 




I NX 


020D 

FE 

0030 

R 


LDX 

SYMPTR 


017b 

BD 

03EI 

R 


JSR MEMCHK 

CHECK MEMORY LIMIT 

0210 

6C 

08 



INC 

8 «X 

SET DEFINED BIT 

017b 

7E 

00A2 

R 


JMP L0AD2 


0212 

A7 

06 



STA 

A 6 ,X 






★ PROGRAM MODULE 


0214 

E7 

07 



STA 

B 7,X 


01 7B 

09 



LOADP 

DEX 

BACKUP OVER COMMON LENGTH 





* FOLLOW LINKAGES 


01 /C 

09 




DEX 






★ 




0170 

FF 

0021 

R 


STX BASE 

SAVE AS NEW BASE 

0216 

FE 

0027 

R 


LDX 

DESCRA 


OlbO 

A6 

01 



LDA A 1,X 

ADD COMMON LENGTH TO CBAS 

0219 

EE 

00 


L0ADN5 

LDX 

0,X 


0132 

E6 

00 



LDA B 0,X 


02 IB 

FF 

0030 

R 


STX 

SYMPTR 


0184 

BB 

00 3C 

R 


ADD A CBAS+I 


02 IE 

FE 

0027 

R 


LDX 

DESCRA 


0187 

F9 

003b 

R 


ADC B CBAS 


0221 

A / 

00 



STA 

A 0,X 


0I8A 

B7 

003E 

R 


STA A CBASSV+1 

SAVE IN CBASSV 

0223 

E7 

01 



STA 

B l t X 


OlbO 

F7 

00311 

R 


STA B CBASSV 


022b 

FE 

0030 

R 


LDX 

SYMPTR 






it 



0228 

BC 

FFFF 



CPX 

#$FFFF 

AT END LINK ? 





★ SEE 

IF NEW COMMON IS 

LONGER 

022B 

27 

C4 



BEQ 

L0ADN3 

YES 





* THAN 

★ 

LAST COMMON 


022D 

FF 

0027 

R 

* 

STX 

DESCRA 

NO 

0190 

B6 

0040 

R 


LDA A HICBAS+1 


0230 

20 

E7 



BRA 

LOADN5 


0193 

F6 

003F 

R 


LDA B HICBAS 






* HANDLE EXTERNAL SYMBOL 

0196 

BO 

003E 

R 


SUB A CBASSV+1 






it 




0199 

F2 

0030 

R 


SBC B CBASSV 


0232 

C6 

06 


LOADX 

LDA 

B #6 

6 CHARS/SYMBOL 





* 



0234 

F / 

002y 

R 


STA 

B DESCRC 


01 9C 

24 

06 



BCC LOADP1 

NO 

023/ 

09 




DEX 


BACK UP TO START OF SYMBOL 





★ 


0238 

09 




DEX 



019b 

FE 

0030 

R 


LDX CBASSV 

YES 

0239 

09 




DEX 



01A1 

FF 

003F 

R 


SfX HICBAS 


023A 

09 




DEX 







★ 



023B 

09 




DEX 



01A4 

FE 

0021 

R 

LOADP1 

LDX BASE 

LOAD NEW BASE 

0230 

09 




DEX 



01A7 

7E 

00 A 2 

R 


JMP L0AD2 


023D 

FF 

0027 

R 


STX 

DESCRA 

POINT TO SYMBOL 








0240 

FF 

002b 

R 


STX 

LC 

SAVE ADDRESS 








0243 

08 




INX 










0244 

08 




INX 










024b 

FF 

0043 

R 


SIX 

LAST 

SAVE ADDRESS 








0248 

BD 

0205 

R 


JSR 

LKPSYM 






★ COMMON RELOCATION 


0248 

Cl 

FF 



CMP 

B #$FF 

IN TABLE ? 





★ 



024D 

26 

12 



BNE 

LOADX4 

YES 

01 AA 

09 



LOADM 

DEX 

POINT TO ADDRESS 





★ 











024F 

BD 029b 

R 


JSR 

STOSYM 

NO,SAVE SYMBOL 


34 



02o2 

FE 

002b 

R 


LDX 

LC 


0 255 

66 

FF 


L0ADX2 

LDA 

A #$FF 

SET END LINK 

0257 

A/ 

00 



STA 

A 0,X 


0259 

A7 

01 



STA 

A 1 ,X 


02 bb 

FE 

004 3 

R 

L0A0X3 

LUX 

LAST 

LOAD NEW LAST 

02bE 

7b 

00A2 

R 


JMP 

L0AD2 


0261 

FE 

0030 

R 

LOADX4 

LDX 

SYMPTR 

POINT TO SYMBOL ENTRY 

0264 

E6 

Oo 



LDA 

B 8«X 

GET INFO BYTE 

0 266 

Cb 

01 



BIT 

B #$01 

DEFINED ? 

026b 

27 

OD 



BEQ 

LOADXb 

NO 

02 6A 

A6 

06 



LDA 

A 6,X 

GET ENTRY ADDRESS 

02 6C 

E6 

07 



LDA 

B 7 ,X 


02 oE 

FE 

002b 

R 


LDX 

LC 


02/1 

A7 

00 



STA 

A 0,X 


02 73 

E / 

01 



STA 

B 1 ,X 

SAVE ADDRESS 

02 /b 

20 

E4 



BRA 

L0ADX3 


02// 

EE 

06 


LOADXS 

LDX 

6 ,X 

GET FIRST LINK 

027y 

FF 

0027 

R 

L0ADX6 

STX 

DESCRA 

FOLLOW LINKAGE 

02 7C 

EE 

00 



LDX 

0,X 


027E 

dC 

FFFF 



CPX 

*$FFFF 

END LINK ? 

023 1 

2o 

Fo 



BNE 

L0ADX6 

NO 

02d3 

B6 

002b 

R 


LDA 

A LC 


0266 

F6 

0026 

R 


LDA 

B LC+ 1 


0239 

FE 

002 7 

R 


LDX 

DESCRA 


023C 

A7 

00 



STA 

A 0,X 


026b 

£7 

01 



STA 

B 1 ,X 

NEW LINK ADDRESS 

0290 

FE 

002b 

R 


LDX 

LC 


0293 

20 

CO 



BRA 

L0AUX2 

SET NEW END LINK 





* SYMBOL TABLE ROUTINES 





* STORE 

SYMBOL IN SYMTAB 

029b 

FE 

002A 

R 

5T0SYM 

LDX 

NXTSYM 


029B 

FF 

0030 

R 


STX 

SYMPTR 

SAVE ENTRY ADDRESS 

029B 

BC 

002E 

R 


CPX 

SYMEND 

FULL ? 

029E 

26 

09 



BNE 

STOSY1 

NO 

O2A0 

CE 

04 69 

R 


LDX 

#SYMFUL 

ERROR 

02A3 

BD 

0434 

R 


JSR 

PDATA1 


02A6 

7E 

0009 

R 


JMP 

MONTOR 

RETURN TO EXEC 





★ MOVE 

SYMBOL TO SYMTAB 

02A9 

FE 

0027 

R 

STOSYI 

LDX 

DESCRA 

GET ADDRESS OF SYMBOL 

02AC 

A6 

00 



LDA 

A 0,X 


02AE 

oa 




I NX 



02AF 

FF 

0027 

R 


STX 

DESCRA 


02 B2 

FE 

002A 

R 


LDX 

NXTSYM 


02 Bb 

A 7 

00 



STA 

A 0,X 


02B7 

03 




INX 



0288 

FF 

002A 

R 


STX 

NXTSYM 


02 BB 

7A 

0029 

R 


DEC 

DESCRC 


02BE 

26 

E9 



BNE 

STOSYI 


02C0 

B6 

002b 

R 


LDA 

A LC 

GET LC 

02C3 

A / 

00 



STA 

A 0,X 

STORE 

02 Cb 

B6 

0026 

R 


LDA 

A LC+1 


02Cb 

A7 

01 



STA 

A 1,X 


02 CA 

36 

00 



LDA 

A #500 

SET INFO BIT 

02 CC 

A7 

02 



STA 

A 2 ,X 


02CE 

03 




INX 



02Cb 

08 




INX 



02 DO 

03 




INX 



02DI 

FF 

002A 

R 


STX 

NXTSYM 


02D4 

39 




RTS 







★ L(X)KUP SYMBOL IN SYMTAB 

02 Db 

FE 

002C 

R 

LKPSYM 

LDX 

SYMTAB 


02 Dd 

BC 

002A 

R 


CPX 

NXTSYM 

EMPTY TABLE? 

020B 

2/ 

2B 



BEQ 

LKPSY3 

YES 

02 JD 

FF 

0030 

R 

LKPSYI 

srx 

SYMPTR 


02E0 

FF 

0032 

R 


STX 

STRNG1 


02 E3 

FE 

002/ 

R 


LDX 

DESCRA 


02t6 

FF 

0034 

R 


srx 

STRNG2 


02E9 

B6 

0029 

R 


LDA 

A DESCRC 


02 EC 

B/ 

0036 

R 


STA 

A COUNT 


02EF 

CE 

0032 

R 


LDX 

#STRNGI 


02 F2 

BD 

03 1 3 

R 


JSR 

COMPAR 


02 Fb 

2/ 

14 



BEQ 

LKPSY2 

MATCH 

02F7 

Fb 

0030 

R 


LDX 

SYMPTR 


02 FA 

03 




INX 



02 FB 

03 




INX 



02FC 

03 




INX 



02FU 

03 




INX 




02 FE 

03 



INX 


02 FF 

03 



INX 


0300 

Od 



INX 


0301 

Od 



INX 


0302 

Od 



INX 


0303 

BC 

002A 

R 

CPX NXTSYM 

END OF ENTRYS 

0306 

26 

Ub 


BNE LKPSYI 

NO 




★ NOT 

IN SYMTAB 


030d 

C6 

FF 

LKPSY3 

LDA B #$FF 


030A 

39 



RTS 



* 


* FOUND SYMBOL 


030B 

FE 

★ 

0030 R LKPSY2 

LDX 

SYMPTR 


030b 

E6 

03 

LDA 

B 3 ,X 


0310 

EE 

06 

LDX 

6 ,X 

GEf VALUE 

0312 

39 


RTS 




★ COMPARE TWO STRINGS 

★ ON ENTRY CXI = A PARM LIST OF 5 BYTES# 

★ A(STRINGI) 

★ A(STRING2) 

★ COUNT OF BYTES TO BE COMPARED 

★ 

* ON RETURN IF CC Z IS SET THERE WAS A MATCH 


0313 

36 



COMPAR 

PSH 

A 


0314 

3/ 




PSH 

B 


031b 

£6 

04 



LDA 

B 4,X 

GET COUNT 

0317 

FF 

0037 

R 


STX 

XSAV 

SAVE PARM POINTER 

031 A 

FE 

0037 

R 

CMP 1 

LDX 

XSAV 

GET PARM POINTER 

03 ID 

EE 

00 



LDX 

0,X 

GET A(STRINGI) 

03 IF 

A6 

00 



LDA 

A 0 t X 

GET A CHAR 

0321 

FE 

0037 

R 


LDX 

XSAV 


0324 

6C 

01 



INC 

1 ,X 

PTR SET TO NEXT 

0326 

26 

02 



BNE 

CMP2 

CHAR IN 

0323 

6C 

00 



INC 

o*x 

STRING! 

032A 

FE 

0037 

R 

CMP2 

LDX 

XSAV 

GET PARM POINTER 

032D 

EE 

02 



LDX 

2,X 

GET A(STRING2) 

032F 

A! 

00 



CMP 

A 0,X 

COMPARE 

033 1 

26 

OC 



BNE 

CDONE 

NOT EQUAL 

0333 

FE 

0037 

R 


LDX 

XSAV 

GET PARM POINTER 

0336 

6C 

03 



INC 

3«X 

PTR SET TO NEXT 

0333 

26 

02 



BNE 

CMP3 

CHAR IN 

033A 

6C 

02 



INC 

2 ,X 

STRING2 

033C 

bA 



CMP3 

DEC 

B 

DEC COUNT 

033D 

26 

DB 



BNE 

CMP 1 

TRY AGAIN 

033F 

33 



CDONE 

PUL 

B 

DONE 

0340 

32 




PUL 

A 


0341 

39 




RTS 







* PRINT 

£ 

LOAD MAP 


0342 

CE 

04 F9 

R 

PRTSYM 

LDX 

#MAPMSG 

"LOAD MAP" 

034b 

BD 

04 34 

R 


JSR 

PDATA1 


0343 

BD 

04 bE 

R 


JSR 

CRLF 


034B 

FE 

002C 

R 


LDX 

SYMTAB 


034 E 

BC 

002A 

R 


CPX 

NXTSYM 

ANY SYMBOLS? 

03b 1 

27 

56 



BEQ 

PRTSM3 

NO 


* 


★ 

* FIND LOWEST VALUED ENTRY TO PRINT 

★ 


0353 

CE 

FFFF 


SORT 

LDX 

#$FFFF 


0356 

FF 

0039 

R 


Sl'X 

NIVAL 


0359 

FE 

0020 

R 


LDX 

SYMTAB 


035C 

FF 

0030 

R 

SORT! 

STX 

SYMPTR 


03b F 

36 

FF 



LDA 

A #$FF 


0361 

A 1 

08 



CMP 

A 8 t X 

ALREADY PRINTED? 

0363 

27 

1C 



BEQ 

S0RT2 

YES 

036b 

03 




INX 



0366 

03 




INX 



0367 

08 




INX 



0363 

03 




INX 



0369 

08 




INX 



036A 

03 




INX 



036B 

FF 

0032 

R 


STX 

STRNG1 

POIN'1 TO ENTRY 

036E 

CE 

0039 

R 


LDX 

#HIVAL 


0371 

FF 

0034 

R 


STX 

STRNG2 

POINT TO HIVAL 

0374 

86 

02 



LDA 

A #2 


03 /6 

B7 

0036 

R 


SI'A 

A COUNT 


0379 

CE 

0032 

R 


LDX 

#STRNG1 

POINT TO PARMS 

037C 

BD 

0313 

R 


JSR 

COMPAR 


03/F 

2b 

13 



BCS 

S0RT3 

ENTRY < HIVAL 

0331 

FE 

0030 

R 

S0RT2 

LDX 

SYMPTR 


0334 

08 




INX 



038d 

03 




INX 



0336 

03 




INX 



036/ 

03 




INX 




35 



0388 

08 




INX 


040E 

16 




TAB 


0389 

08 




I NX 


04 OF 

8D 

02 



BSR 

INHEX 

038A 

03 




INX 


041 1 

13 




ABA 


038B 

03 




INX 


04 12 

39 




RTS 


038C 

08 




INX 





★ 




03<3D 

BC 

002A 

R 


CPX NXTSYM 

END OF TABLE? 




* 

INPUT 

HEX 

CHARACTER 

0390 

27 

OF 



BEQ S0RT4 

YES 




* 








* 



0413 

Bu 

001 B 

R INHEX 

JSR 

INEEE 

> 

O 

20 

C8 



BRA SORT! 

NO 

0416 

80 

30 



SUB 

A #$30 





★ 



0418 

2B 

OF 



BMI 

NOTHEX 

0394 

FE 

0030 

R 

S0RT3 

LDX SYMPTR 

HIVAL**ENTRY 




★ 




039 7 

FF 

0027 

R 


SIX DESCRA 

SAVE LOWEST ENTRY ADDRESS 

04 !A 

81 

09 



CMP 

A #$09 

03 9 A 

EE 

06 



LDX 6,X 

GET VALUE 

041C 

2F 

OA 



BLE 

INHEXR 

039C 

FF 

0039 

R 


STX HIVAL 





★ 




039F 

20 

EO 



BRA S0RT2 


04 1b 

81 

1 1 



CMP 

A #$1 1 





★ 



0420 

23 

07 



BMI 

NOTHEX 

03A1 

CE 

FFFF 


S0RT4 

LDX #$FFFF 





★ 




03A4 

BC 

0039 

R 


CPX 'HIVAL 

PRINTED ENTIRE LOAD MAP? 

0422 

81 

16 



CMP 

A #$16 

03A7 

26 

01 



BNE PRTSMO 

NO 

04 24 

2E 

03 

it 


BGT 

NOTHEX 

03A9 

39 



PRTSM3 

RTS 

YES, ALL DONE 

04 26 

8J 

07 



SUB 

A #$7 





★ 



0428 

39 


INHEXR 

RTS 


03 AA 

FE 

0027 

R 

PRTSMO 

LDX DESCRA 

GET ENTRY TO BE PRINTED 




* 




03AD 

C6 

06 


PRTSM1 

LDA B #6 

PRINT 6 CHAR SYMBOL 




★ 

NOT A 

HEX 

CHARACTER 

03AF 

A6 

00 


PRTSM2 

LDA A 0,X 

GET CHAR 




★ 




03BI 

08 




INX 


0429 

86 

3F 

NOTHEX 

LDA 

A #'?' 

03 B2 

BD 

001E 

R 


JSR OUTEEE 


04 2b 

BD 

00 IE 

R 


JSR 

OUTEEE 

03 Bb 

BA 




DEC B 

DONE ? 

042b 

20 

b3 



BRA 

INHEX 

03B6 

26 

F7 



BNE PRTSM2 

NO 




★ 





* 

03B8 BD 0448 R 


JSR OUTS 


PRINT A SPACE 


★ PRINT A DATA STRING 

★ 


* 


03 BB 

BD 

0444 R 

JSR 

03 BE 

E6 

00 

LDA 

03 CO 

C5 

01 

BIT 

03C2 

26 

06 

BNE 


OUT4HS PRINT HEX VALUE 

B 0,X GET INFO BYTE 

B #$OI UNRESOLVED? 

PRTSM4 NO 


0430 BD 00lb R PDATA2 
0433 08 

0434 A6 00 PDATAI 

0436 ’81 04 

0433 2o F6 


JSR OUTEEE 
I NX 

LDA A 0,X 
CMP A #4 
BNE PDATA2 


* 


★ 


03 C4 

CE 

0502 

R 


LDX 

#UNRES 

YES 

03C7 

BD 

04 34 

R 


JSR 

PDATAI 


03CA 

C5 

80 


PRTSM4 

BIT 

B #$80 

REDEFINED? 

03 CC 

27 

06 



BEQ 

PRTSM5 

NO 

03CE 

CE 

050E 

R 


LDX 

#REDEF 

YES 

03DI 

BD 

0434 

R 

* 

JSR 

PDATAI 


03 D4 

BD 

045 E 

R 

* 

PRTSM5 

JSR 

CRLF 


03D7 

FE 

0027 

R 


LDX 

DESCRA 

FLAG AS PRINTED 

03 DA 

86 

FF 



LDA 

A #$FF 


03DC 

A7 

08 



STA 

A 8,X 


03DE 

7E 

0353 

R 


JMP 

SORT 

GET ANOTHER ENTRY 


* CHECK TO SEE IF MEMORY OVERRUN 

* 


03 El 

BC 

0045 

R 

MEMCHK 

CPX UPLIM 

OVERRUN? 

03 E4 

27 

01 



BEQ MEMCKE 

YES 

03 E6 

39 




RTS 

NO 

03 H 7 

BD 

045E 

R 

MEMCKE 

JSR CRLF 


03EA 

CE 

04 CF 

R 


LDX #MSGD 

ERROR MESSAGE 

03ED 

BD 

0434 

R 


JSR PDATAI 


03 FO 

BD 

04bE 

R 


JSR CRLF 


03 F3 

31 




INS 

FIX STACK 

03F4 

31 




INS 


03 F5 

7E 

OOF 9 

R 


JMP LOADE 

PRINT PARTIAL LOAD MAP 





★ I/O ROUTINES 


03F8 

0002 


BXSAV 

RMB 2 






★ BUILD 

16 BIT ADDRESS 


03FA 

3D 

OC 


6ADUR 

BSR INBYTE 


03 FC 

B7 

03F8 

R 


STA A BXSAV 


03 FF 

3D 

07 



BSR- INBYTE 


0401 

B 7 

03F9 

R 


STA A BXSAV+1 


0404 

FE 

03F8 

R 


LDX BXSAV 


0407 

39 




RTS 






* INPUT 

A BYTE 


0408 

8D 

09 


INBYTE 

BSR INHEX 


040A 

48 




ASL A 


040B 

48 




ASL A 


040C 

48 




ASL A 


040U 

48 




ASL A 



043A 39 


RTS 

* 


OUTPUT TWO HEX CHARACTERS 

★ 


04 3B 

A6 

00 

0UT2H 

LDA 

A 0,X 

043D 

8D 

OE 

0UT2HA 

BSR 

OUTHL 

043F 

A6 

00 


LDA 

A 0,X 

0441 

08 



INX 


0442 

20 

ou 


BRA 

OUTHR 

0444 

8D 

Fb 

0UT4HS 

BSR 

0UT2H 

0446 

8D 

F3 

0UT2HS 

BSR 

0UT2H 

0448 

86 

20 

OUTS 

LDA 

A #$20 

044A 

7E 

001 E 

R 

JMP 

OUTEEE 

044D 

44 


OUTHL 

LSR 

A 

04 4E 

44 



LSR 

A 

044F 

44 



LSR 

A 

0450 

44 



LSR 

A 

0451 

84 

OF 

OUTHR 

AND 

A #$0F 

0453 

BB 

30 


ADD 

A #$30 

0455 

81 

39 


CMP 

A #$39 

0457 

23 

02 


BLS 

OUTCH 

0459 

8B 

07 


ADD 

A #7 

045B 

7E 

001 E 

R OUTCH 

★ 

JMP 

OUTEEE 

045E 

86 

OD 

* 

CRLF 

LDA 

A #$0D 

0460 

BD 

00 IE 

R 

JSR 

OUTEEE 

0463 

36 

OA 


LDA 

A #$0A 

0465 

BD 

001E 

R 

JSR 

OUTEEE 

0468 

39 



RTS 





★ 






★ MESSAGES 


0469 

53 

SYMFUL 

FCC 

'SYMBOL TABLE OVERFLOW' 

04 7b 

04 


FCB 

4 

047 F 

45 

MSGL 

FCC 

'ENTER BASE ADDRESS! ' 

0493 

04 


FCB 

4 

0494 

45 

MSG A 

FCC 

'ENTER UPPER MEMORY LIMIT* 

04 At 

04 


FCB 

4 

04AF 

45 

MSGB 

FCC 

'ENTER START OF COMMON* ' 

04C6 

04 


FCB 

4 

04C7 

43 

MSGC 

FCC 

'COMMONi' 

04CE 

04 


FCB 

4 


36 



04CF 2A 
Q4EB 04 

04EC 4C 
04F8 04 

04FV 4C 
0501 04 

0502 55 


MSGD 

FCC 

'★*★*★* MEMORY OVERRUN ★***★*' 

* 

FCB 

4 

MSGE 

FCC 

'LOAD LIMITS* / 

* 

FCB 

4 

MAPMSG 

FCC 

'LOAD MAP' 

* 

FCB 

4 

UNRES 

FCC 

'UNRESOLVED ' 


050U 04 

050b 52 
0517 04 

051b 53 
053 d 04 


FCB 4 

* 

RtDEF FCC 'REDEFINED' 

FCB 4 

★ 

5AVFIL FCC 'SAVE LOADED FILE? **Y M OR M N H ' 

FCB 4 

★ PUNCH * OUTPUT LOAD MODULE IN MIKBUG FORMAT 

★ (BASESV - LAST) 

★ 


0536 

0001 


MCONT 

RMB 

1 

0537 

0001 


TEMP 

RMB 

1 

053b 

0538 

R 

PUNCH 

EOU 

★ 

053b 

B6 

0044 

R 

PUN 11 

LDA 

A LAST+I 

053b 

BO 

0042 

R 


SUB 

A BASESV+1 

053E 

F6 

0043 

R 


LDA 

B LAST 

0541 

F2 

0041 

R 


SBC 

B BASESV 

0544 

26 

04 



BNE 

PUN 22 

0546 

81 

10 



CMP 

A #16 

054b 

25 

02 



BCS 

PUN23 

054 A 

86 

OF 


PUN22 

LDA 

A #15 

054C 

8B 

04 


PUN23 

ADD 

A #4 

054E 

B7 

0536 

R 


STA 

A MCONT 

0551 

80 

03 



SUB 

A #3 

0553 

B7 

0537 

R 


STA 

A TEMP 

0556 

CE 

05C4 

R 


LDX 

#MTAPE1 

0559 

BD 

05B6 

R 


JSR 

DDATAJ 

055C 

5F 




CLR 

B 


* 


★ OUTPUT FRAME COUNT 


★ 


055D 

CE 

0536 R 

LDX 

#MC()NT 

0560 

80 

33 

★ 

BSR 

PUNT2 


* OUTPUT ADDRESS 

★ 


0562 

CE 

004) 

R 

LDX* #BASESV 

0565 

BD 

0595 

R 

JSR 

PUNT2 

0568 

BD 

0595 

R 

JSR 

PUNT2 




• * 

OUTPUT DATA 

05 6B 

FE 

0041 

R 

LDX 

BASESV 

056E 

BD 

0595 

R PUN32 JSR 

PUNT2 

0571 

Ik 

0537 

R 

DEC 

TEMP 

05 74 

26 

F8 


BNE 

PUN32 

0576 

FF 

0041 

R 

STX 

BASESV 

0579 

53 



COM 

B 

05 7A 

37 



PSH 

B 

057B 

30 



TSX 


057C 

BD 

0595 

R 

JSR 

PUNT2 

057F 

33 



PUL 

B 

0580 

FE 

0041 

R 

LDX 

BASESV 

0583 

09 



DEX 


0584 

BC 

0043 

R 

CPX 

LAST 

0587 

26 

AF 


BNE 

PUN 11 

0589 

CE 

05 BD 

R 

LDX 

#E()F 

058C 

BD 05B6 

R 

JSR 

DDATA1 


* 


058F 

BD 

0012 

R 


JSR rtREOF 

0592 

7E 

0018 

R 


JMP UPDATE 

0d95 

tB 

00 


PUNT2 

ADD 

B 0,X 

059 7 

A6 

00 


0IJT2HD 

LDA 

A 0,X 

05 V9 

bi) 

Od 



BSR 

OUTHLL 

059B 

A6 

00 



LDA 

A 0,X 

059D 

Od 




I NX 


059E 

20 

04 



BRA 

OUTHRR 

05 AO 

44 



outhlL 

LSR 

A 

05 A1 

44 




LSR 

A 


05A2 

44 



LSR 

A 

05A3 

44 



LSR 

A 

05 A4 

84 

OF 

OUTHRR 

AND 

A #$F 

05A6 

8B 

30 


ADD 

A #$30 

ObAo 

81 

39 


CMP 

A #$39 

05 AA 

23 

02 

★ 

BLO 

OTHRR 

05 AC 

BB 

0/ 

* 

ADD 

A #7 

05AE 

BD 

OOOF 

R OTHRR 

JSR 

OUTB 

05 B l 

39 


★ 

RTS 


Od B2 

BD 

000 F 

R DDATA2 

JSR 

OUTB 

05 B5 

08 



I NX 


Od B6 

A6 

DO 

ODATA 1 

LDA 

A O.X 

05Bb 

81 

04 


CMP 

A #4 

05BA 

26 

F6 

* 

BNE 

ODATA2 

05 BC 

39 


★ 

RTS 


05BD 

ODOA 

EOF 

FDB 

$ODOA 

05 BF 

53 



FCC 

'S9' 

05C1 

ODOA 


FDB 

$ODOA 

05C3 

04 


★ 

FCB 

4 

05C4 

ODOA 

MTAPE1 

FDB 

SODOA 

ObC6 

53 



FCC 

'SI' 

05 Co 

04 


★ 

FCB 

4 





END 



BA DDR 

03FA 

R 

MSGC 

04 C7 

R 

BASE 

0021 

R 

MSGD 

04 CF 

R 

BASESV 

0041 

R 

MSGt 

04EC 

R 

BXSAV 

03 Fb 

R 

MSGL 

047 F 

R 

BYTE 

0024 

R 

rtTAPEl 

05 C4 

R 

CBAS 

003 B 

H 

NF LAG 

0023 

R 

CBASSV 

00 3D 

R 

NOi'HtX 

0429 

R 

CDONE 

033F 

R 

NXTSYM 

002A 

R 

CMP 1 

031A 

R 

OTHRR 

05 Ah 

R 

CMP2 

032A 

R 

0UT2H 

043B 

R 

CMP 3 

033C 

R 

0UT2HA 

043D 

R 

COMPAR 

0313 

R 

0UT2HD 

0597 

R 

COUNT 

0036 

R 

0UT2HS 

0446 

R 

CRLF 

04d E 

RN 

OUT4HS 

04 44 

R 

DDATA1 

05 B6 

R 

OUTB 

OOOF 

RX 

0DATA2 

05 B2 

R 

OU TCH 

045B 

R 

DESCRA 

0027 

R 

OU T EEb 

00 1 b 

R 

DESCRC 

0029 

R 

OUTHL 

044D 

R 

EOF 

05 BD 

R 

OUTHLL 

05 AO 

R 

GETB 

OOOC 

RX 

OUTHR 

0451 

R 

HICBAS 

003F 

R 

OUTHRR 

05 A4 

R 

HIVAL 

0039 

R 

OUTS 

044b 

R 

INBYTE 

040B 

R 

PUATAl 

0434 

RN 

INEEE 

001 B 

RN 

PDATA2 

0430 

R 

INHEX 

0413 

R 

PRTSMO 

03 AA 

R 

INHEXR 

042b 

R 

PRISM 1 

03AD 

R 

INITIO 

0015 

RX 

PRTSM2 

03AF 

R 

LAST - 

0043 

R 

PRTSM3 

03A9 

R 

LC 

0025 

R 

PRTSM4 

03CA 

R 

LINK 

0000 

RN 

PRTSM5 

03 D4 

R 

LKPSY1 

02DD 

R 

PRTSTM 

0342 

R 

LKPSY2 

030B 

R 

PUN 11 

053b 

R 

LKPSY3 

030b 

R 

PUN22 

054A 

R 

LKPSYM 

02 Db 

R 

PUN23 

054C 

R 

LOAD 

0047 

R 

PUN32 

056E 

R 

L0AD2 

00 A2 

R 

PUNCH 

053b 

R 

LOADE 

00 F9 

R 

PUNT2 

0595 

R 

L0AUE1 

013B 

R 

REDEF 

ObOE 

R 

LOAUM 

01 AA 

R 

RNIBL 

Q0E7 

R 

LOADN 

01 Cb 

R 

SAVFIL 

OD lb 

R 

L0AUN3 

01 F 1 

R 

SORT 

03 d 3 

R 

L0ADN4 

01 F7 

R 

SORT 1 

Q3dC 

R 

LOADNd 

0219 

R 

S0RT2 

03b 1 

R 

L0ADN6 

0204 

R 

SORT 3 

0394 

R 

LOADP 

0I7B 

R 

S0RT4 

03A! 

R 

L0ADP1 

01A4 

R 

SiOSYl 

02A9 

R 

LOADR 

0160 

R 

STOSYM 

0295 

R 

LOADX 

0232 

R 

STMNGl 

0032 

R 

L0ADX2 

0255 

R 

STRNG2 

0034 

R 

L0ADX3 

02dB 

R 

SYMEND 

002E 

R 

L0ADX4. 02o1 

R 

SYMFUL 

0469 

R 

L0ADX5 

02 77 

R 

SYMPTR 

0030 

R 

LOADXo 

0279 

W 

SYMTAb 

002C 

k 

MAPMSG 

i 04F9 

R 

TABLES 

0006 

RX 

MCONT 

0536 

R 

TcMP 

0537 

R 

MEMCHK 

03EI 

R 

UnRES 

0502 

R 

MEMCKE 

: 03E / 

R 

UPDATE 

001b 

RX 

MONTOR 

t 0009 

RX 

UPLIM 

004 d 

R 

MSGA 

0494 

R 

rtRcOF 

0012 

RX 

MSGB 

04AF 

R 

XSAV 

0037 

R 
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The listing on the following page gives the relocatable format object code of the linking loader LINK68 
in ASCII text format. This listing can be used to enter the program by hand or to verify the entry of the 
program via the bar codes given in Appendix I. Note that the ends of lines in this verification listing do not 
represent line feed or carriage return codes within the machine readable text. See Input Relocatable File 
Format on page 15 for a description of the relocation conventions. 

Once LINK68 has been bootstraped (see Appendix C), the relocatable file of the linking loader can be 
run through the loader in order to reposition LINK68 at an arbitrary, more convenient address if low 
memory is not the ideal location in the user's system. This form of the linking loader object code will 
not be needed by users who can employ the absolute object code version of LINK68 given in Appendices 
D or E without further relocation. 

Appendix G gives an assembly language source listing for LINK68. 
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0000P4C494E4B20 200000RN8EA0427E0047R7E5441424C45 5 3X7E4D4F4E544F5 
2X7E4745 54422020X7E4F5 5 54422020X7E575 2454F4620X7E494E4954494FX7E 
555 044415445X494E454 54 5 20001BRN504441 5441310434RN43 524C462020045 
ERN7EEIAC7EE1D10000000000000000000000000000000000000000000000000 
OOOOOOOOOOOOOOOOOOOOOOOOOOOBDOO15RFE0007R86A3C602AB01E900B7002FR 
F7002EREEOOFF002CRFF002AR7F0023RBD045ERCE047FRBD0434RBD03FARBD04 
5ERFF002IRFF004IRCE0494RBD0434RBD03FARFF0045RBD045ERCE04AFRBD043 
4RBD03 FARBD04 5ERFF003BRFF00 3DRFF00 3FRFE0021RBD000CR2552 810027F78 
15026037EO17BR8I4E26037E01C5R815826037E0232R814D2603 7E01AAR815 22 
6037E0I60R80308I092F0280077D0023R260C48484848B70024R730023R20BBF 
60024R1BA700FF0043R08 BD03E1R7 300 23R20A9BD045ERBD045ERCE04ECRBD04 
34RBD04 5ERCE0041RBD0444RCE0043RBD0444RBD045ERBD045ERBD0342RBD045 
ERCE04C7RBD0434RBD045ERCE003BRBD0444RFE003FRBC003BR270409FF003FR 
CE003FRBD0444RBD045ERBD045ERCE0518RBD0434RBD001BR81592606BD045ER 
7E05 3 8RBD045ER7E0009R0909A601E600BB0022RF90021RA701E70008BD03E1R 
08BD03EIR7EOOA2R0909FF0021RA601E600BB003CRF9003BRB7003ERF7003DRB 
60040RF600 3 FRB0003ERF2003DR2406FE003DRFF003FRFE0021R7E00A2R0909A 
601E600BB003CRF9003BRA70IE70008BD03E1R08BD03E1R7E00A2RC606F70029 
R0909A600B70025RA601B70026R090909090909FF0043RFF0027RBD02D5RC1FF 
2 60EBD029 5RFEOO 30R6C08 FE004 3R7EOOA2RC5012709CA80FE0030RE70820EDF 
F0027RB60025RF60026RFE0030R6C08A706E707FE0027REEOOFF0030RFE0027R 
A700E701FE0030R8CFFFF27C4FF0027R20E7C606F70029R090909090909FF002 
7RFF002 5R0 808FF0043RBD02D5RC1FF2612BD0295RFE0025R86FFA700A701FEO 
043R7EOOA2RFE0030RE608C50I270DA606E607FE0025RA700E70120E4EE06FF0 
027REE008CFFFF26F6B60025RF60026RFE0027RA700E701FE0025R20C0FE002A 
RFF0030RBC002ER2609CE0469RBD0434R7E0009RFE0027RA60008FF0027RFEOO 
2ARA70008 FFOO 2AR7A002 9R26E9B60025RA700B60026RA7018600A702080808F 
F002AR39FE002CRBC002AR272BFF0030RFF0032RFE0027RFF0034RB60029RB70 
036RCE0032RBD03I3R2714FE0030R080808080808080808BC002AR26D5C6FF39 
FEOO 30RE608EE0639 3 63 7E604FF00 37RFE0037REE00A600FE0037R6C0126026C 
00FE003 7REE02A1002 60CFE003 7R6C0 326026C025A26DB3 3 3 23 9CE04F9RBD043 
4RBD04 5 ERFE002CRBC002AR27 5 6CEFFFFFF0039RFE002CRFF0030R86FFA108 27 
IC080808080808FFOO32RCEOO39RFF0034R8602B70036RCE0032RBD0313R2513 
FE0030R080808080808080808BC002AR270F20C8FE0030RFF0027REE06FF0039 
R20E0CEFFFFBC00 39R260I 39FE0027RC606A60008BD001ER5A26F7BD0448RBD0 
444RE600C5 012606CE05 02RBD04 34RC5 802706CE050ERBD0434RBD045ERFE002 
7R86 FFA708 7E035 3RBC004 5R27013 9BD045ERCE04CFRBD0434RBD045ER31317E 
OOF9ROOOOSDOCB70 3 F8R8D07B7 0 3F9RFE03F8R398D0948484848168D021B39BD 
00 IBR80302B0F81092F0A811 12B07811 62E03800739863FBD001ER20E3BD00IE 
R08A6008I0426F6 39A6008D0EA60008 200D8DF5 8DF38 6207E001ER4444444484 
0F8B30813923028 BO77E00 1ER8 60DBD001ER860ABD001ER39 5 3 594D424F4C205 
441424C45204F564552464C4F5704454E5445522042415345204144445245535 
33A2004454E544552205550504552204D454D4F5259204C494D49543A2004454 
E544552205354415254204 F46204 34F4D4D4F4E3A2004434F4D4D4F4E3A042A2 
A2A2A2A2A204D4 5 4D4 F5 259204F5 645 52 52 5 54E202A2A2A2A2A2A044C4F41442 
04C4 94D49545 33A044C4 F4144204D4150045 54E5245 5 34F4C5 64 54420045 2454 
44546494F454404534 I 5645204C4F414445442046494C453F20225922204F522 
0224E2220040000B60044RB00042RF60043RF20041R260481102502860F8B04B 
70536R8003B7 0 53 7RCE05C4RBD0 5B6R5FCE05 3 6R8D3 3CE0041RBD0595RBD0 59 5 
RFE004IRBDO595R7A053 7R26F8FF0041R533730BD0595R33FE004 1 R09BC0043R 
2 6AFCE0 5 BDR BDO 5 B 6 R BDO 012R7E0018REBOOA6008D05A6000820044444444484 
OF8B3 08 13 9 2 3 028 B07 BD000FR3 9BD000 FR08A600810426F6390D0A53390D0A04 
0D0A533I 04 
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Beginning on the following page is a complete machine readable representation (PAPERBYTE™ bar 
codes) of the relocatable object code for Grappel and Hemenway’s linking loader LINK68. The format is 
that of an ASCII text string without carriage return or line feed conventions. Appendix H is a direct listing 
of this file using fixed length lines to make it fit the confines of a printed page. See Input Relocatable File 
Format on page 15 for a description of the relocation conventions. 

This representation uses the bar code text format, in which each bar code frame (one line of bar codes 
running from top to bottom of the page) contains a segment of the ASCII relocatable format object text. 
The text must be loaded into memory and then saved on the user's mass storage device. For details on the 
text format used in this and other PAPERBYTE™ books, see the PAPERBYTE publication Bar Code 
Loader by Ken Budnick. The book contains a brief history on bar codes, a general bar code loader algo¬ 
rithm with flowcharts, and complete program listings for 6800, 6502, and 8080 and Z-80 based systems. 

Once LINK68 has been bootstrapped (see Appendix C), the relocatable file of the linking loader can be 
run through the loader in order to reposition LINK68 at an arbitrary, more convenient address if low mem¬ 
ory is not the ideal location in the user’s system. This form of the linking loader object code will not be 
needed by users who can employ the absolute object code version of LINK68 given in Appendices D or E 
without further relocation. 
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0000000000000000000000000000000000000000 
00000000001 1 1 1 1 1 1 1 I 122222222223333333333 

01234567890123456789 01234567890123456789 



0000000000000000000000000000000000000000 
00000000001 1 1 1 1 1 1 1 1 1222 2 2222223333333333 

0123456789012345678901234567890123456789 
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0000000000000000000011111111111111111111 
8888888888999999999900000000001 1 1 1 1 1 1 1 1 1 

0123456789012345678901234567890123456789 



000000000000000000001 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

8888888888999999999900000000001 1 1 1 1 1 1 1 1 1 

0123456789012345678901234567890123456789 
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11111111 

22222222 
0 12 3 4 5 6 7 


1111111 

2 2 3 3 3 3 3 
8 9 0 12 3 4 


11111111 
3 3 3 3 3 4 4 4 
5 6 7 8 9 0 1 2 


11111111 
44444445 
3 4 5 6 7 8 9 0 


111111111 

5 5 5 5 5 5 5 5 5 
12 3 4 5 6 7 8 9 
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0000 0000 


N 


NAM TDRIVERS 


★ 

* TAPE DRIVERS FOR LINKING LOADER 

* C COPYRIGHT 1977 BY 

* ROBERT D. GRAPPEL LEXINGTON MASS 

* AND JACK E. HEMENNAY BOSTON MASS 

* ALL RIGHTS RESERVED 

* 


* 


0000 

7E 

0000 

★ 

* 

X 

ROUTINES IN THE LINKING LOADER 

EXT PDATAI 

0003 

7E 

0000 

X 

EXT INEEE 

0006 

7E 

0000 

X 

EXT CRLF 


* 


★ ENTRY POINTS IN DRIVER 

★ 


0009 0106 

N 

ENf TABLES 

0009 0009 

N 

ENT UPDATE 

0009 OOOC 

N 

ENT MONTOR 

0009 0016 

N 

ENT GETB 

0009 0035 

N 

ENT OUTB 

0009 0062 

N 

ENT WREOF 

0009 0051 

N 

ENT INITIO 


★ 


* LOCATIONS IN MIKBUG 

★ 


0009 

7E 

E0E3 


UPDATE 

JMP 

SE0E3 


OOOC 

7E 

E0E3 


MONTOR 

JMP 

$E0£3 


OOOF 

0001 


CKSUM 

RMB 

1 


0010 

0002 


INPTR 

RMB 

2 


0012 

0002 


OTPTR 

RMB 

2 


0014 

0002 


DXSV 

RMB 

2 






* GET i 

^ BYTE RETURN 

IN A REGISTER 

0016 

FF 

0014 

R 

GETB 

STX 

DXSV 


0019 

FE 

0010 

R 


LDX 

INPTR 


DOIC 

A6 

00 



LDA 

A 0,X 

GET A CHAR 

001E 

81 

17 



CMP 

A #$17 

ETB ? 

0020 

26 

08 



BNE 

GETB1 

NO 

0022 

37 




PSH 

B 


0023 

BD 

0074 

R 


JSR 

RDBUF 

READ ANOTHER BLOCK 

0026 

33 




PUL 

B 


0027 

24 

01 



BCC 

GETBt 


0029 

39 




RTS 


EOF 

002A 

A6 

00 


GETB1 

LDA 

A 0,X 

GET CHAR 

002C 

08 




INX 



002U 

FF 

0010 

R 


STX 

INPTR 


0030 

FE 

0014 

R 


LDX 

DXSV 


0033 

OC 




CLC 



0034 

39 



* 

RTS 







* 

* OUTPUT BYTE IN A 

REGISTER 

0035 

FF 

0014 

R 

OU) 6 

STX 

DXSV 


0036 

FE 

0012 

R 


LDX 

OTPTR 


003b 

8C 

05D5 

R 


CPX 

#OTBUF+$ 

1FD FULL? 

00 3E 

26 

07 



BNE 

0UTB1 

NO 

0040 

36 




PSH 

A 


0041 

37 




PSH 

B 


0042 

BD 

01 IE 

R 


JSR 

rtRITBF 


0045 

32 




PUL 

A 


004 6 

33 




PUL 

B 


0047 

A7 

00 


0UTB1 

STA 

A 0,X 

SAVE CHAR 

0049 

08 




INX 



004A 

FF 

0012 

R 


STX 

OTPTR 


004L> 

FE 

0014 

R 


LDX 

DXSV 


0050 

39 



* 

RTS 



0051 

CE 

01 D8 

R 

* 

INITIO 

LDX 

#1NBUF 


00o4 

FF 

0010 

R 


STX 

INPTR 


0057 

66 

1 7 



LDA 

A #$17 


0059 

A7 

00 



STA 

A 0,X 


005b 

CE 

03D8 

R 


LDX 

#OTBUF 


OOst 

FF 

0012 

R 


STX 

O'iPTR 


0061 

39 




RTS 







* CLOSE OUTPUT FILE 


0062 

BD 

01 1b 

R 

rtREOF 

JSR 

ARITBF 


006^ 

FE 

0012 

R 


LDX 

OTPTR 


0066 

66 

04 



LDA 

A #4 


006A 

A7 

00 



STA 

A 0 V X 




00 6C 

08 



INX 



006D 

FF 

0012 

R 

srx OTPTR 


00/0 

BO 

ONE 

R 

JSR WRITBF 


0073 

39 



RTS 






★ READ 

IN A 

BLOCK FROM 

TAPE 1 * 

0074 

7F 

OOOF 

R RUBUF 

CLR 

CKS1JM 


00 77 

CE 

01 Ud 

R 

LDX 

#1NBUF 

POINT TO INBUF 

00/A 

BD 

01 b3 

R 

JSR 

T1INZ 

STAR!' TAPE 1 

00 ID 

Bl) 

0176 

R RD1 

JSR 

T1UET 

GET CHAR 

0080 

bD 



TST B 


OK ? 

00b! 

20 

18 


BNE 

RU2 

NO 

00d3 

A7 

00 


STA A 

o,x 

PUT IN INBUF 

00 8b 

Od 



INX 


BUMP POINTER 

OOdo 

dl 

04 


CMP A 

#$04 

EOF? 

00 Rd 

27 

IE 


BEQ 

RD4 

YES 

OObA 

dl 

17 


CMP A 

#$17 

ETB? 

OOdC 

26 

EF 


BNE 

RD1 

NO 

OOdfc 

bC 

03U / 

R 

CPX 

#1NBUF+S1FF OVERRUN ? 

00 VI 

27 

08 


BEQ 

RD2 

YES 

0093 

BU 

0176 

R 

JSR 

T1 GET 

GET CKSUM BYTE 

0096 

7C 

OOOF 

R 

INC 

CKSUM 

OK ? 

0099 

27 

Ob 


BEQ 

RD3 

YES 

009b 

CE 

OOF 7 

R RU2 

LDX 

#TAPERR 

BAD 

DOVE 

20 

Ob 

£ 

BRA 

RUb 

FINISH UP 

00 AO 

BU 

01 BE 

R RD3 

JSR 

T1ISTP 

STOP TAPE 1 

OOA3 

CE 

OlUd 

R 

LUX 

#1 NBUF 

INIX INPTR 

00A6 

OC 



CLC 



00A7 

3V 



RTS 



00 Att 

CE 

OOBE 

R RD4 

LUX 

#EOF 

EOF MSG 

OOAb 

BD 

013fc 

R RUb 

JSR 

T1 ISTP 

STOP TAPE 

OOAE 

BU 

0000 

R 

JSR 

PDATA1 

PRINT MESSAGE 

GOBI 

BU 

0003 

R RD6 

JSR 

INEEE 

WAIT FOR M G0" 

0084 

8 i 

OU 


CMP A 

#$00 

CR ? 

00B6 

27 

BC 

it 

BEQ 

RDBUF 

TRY AGAIN 

OOdo 

d! 

44 


CMP A 

#'D 

DONE? 

OOBA 

26 

Fb 


BNE 

RU6 

NO 

OOBC 

OJ 



SEC 


YES 

00 BU 

39 


* 

RTS 


RETURN 

OOBE 

43 


★ 

EOF 

FCC 

'EOF * REPOSITION TAPE AND TYPE 

00 JU 

ODOA 


HUB 

$ODOA 

CR ,LF 

OOOF 

4F 



FCC 

'OR TYPE 

A “D" IF DONE' 

00F4 

OUOA 


FDB 

$OUOA 

CR,LF 

00F6 

04 



FCB 

4 

EOT 

OOF/ 

34 


i’APE RR 

FCC 

'TAPE ERROR*BACK UP A BLOCK A 

0 11 b 

OUOA 


FUB 

$ODOA 

CR t LF 

GHu 

04 



FCB 

$04 

EOT 




* NRITBFi WRITE OUT OTBUF TO TAPE2 

Ollh 

37 


WRITBF 

PSH B 



01 1 F 

FE 

0012 

R 

LDX 

OTPTR 


0122 

BC 

03D8 

R 

CPX 

#0TB1JF 

EMPTY 

012b 

27 

22 


BEQ 

WRTBFC 

YES 

0127 

86 

17 


LDA A 

#$ 17 

LOAD ETB 

0129 

A7 

00 


STA A 

o,x 

PUT INTO OTBUF 

012B 

CE 

03UB 

R 

LDX 

#()TBUF 

POINT TO OTBUF 

0I2E 

bF 



CLR B 


CLR CKSUM REG 

012F 

BU 

0196 

R 

£ 

JSR 

T20TZ 

START TAPE 

0132 

A6 

00 

WRTBFA 

LDA A 

0,X 

GET CHAR 

0134 

EB 

00 


ADD B 

O t X 

ADD TO CKSUM 

0136 

BU 

01 Bl 

R 

JSR 

T20UT 


0139 

BC 

0012 

R 

CPX 

OTPTR 

DONE ? 

01 3C 

27 

03 


BEQ 

WRTBFB 


013E 

08 



INX 


NO 

013F 

20 

FI 


BRA 

WRTBFA 

DO AGAIN 

0141 

53 


WRTBFB 

COM B 


FORM CKSUM 

0142 

17 



TBA 


BYTE 

0143 

BO 

0 i B 1 

R 

JSR 

T20UT 


0146 

BD 

01 BE 

R 

ft 

JSR 

T20STP 

STOP TAPE 

0149 

CE 

0308 

R WRTBFC 

LDX 

#OTBUF 


014C 

FF 

0012 

R 

STX 

OTPTR 

INIT OTPTR 

014F 

33 



PUL 

B 


01 bO 

39 



RTS 






★ TAPE 

* 

DRIVERS* 


Olol 

8010 

* 

TP 1ST 

EQU $8010 


01 3 ! 

801 1 

TP 1 DAT 

EQU $8011 


01 b 1 

8014 

TP2ST 

EQU $8014 
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01 t>l 801b i'P2DAT EQU $80lb 

01b I 0002 i'XSV RMB 2 

* 


* 

★ START TAPE FOR A REAUt 

★ 


01 b3 

Fr 0151 R TIINZ 

STX TXSV 


0 1 b6 

36 

PSH A 


01 b7 

86 17 

LIM A #$17 

MASTER RESET, RTS» 

01 o9 

B7 80 10 

STA A TP 1ST 


01 bC 

86 bD 

LDA A #$:>D 

RTS* * 1 

OlDt 

B7 8010 

STA A TP 1ST 


01 61 

CE 0280 

LDX #$0280 

DELAY 1 SEC 

0164 

BD 01CE R 

JSR TDELY 


0167 

86 b/ 

LDA A #$b7 

MASTER RESET 

01 69 

B7 8010 

STA A TP 1ST 


0I6C 

86 bD 

LDA A #$5D 

RTS**1 

01 6E 

B7 8010 

STA A TP 1ST 


01/1 

32 

PUL A 


0172 

FE 01d 1 R 

LDX TXSV 


01 /b 

39 

RTS 



* READ 

A BYTE 


01 16 

F6 8010 T1 GET 

LDA B TP 1ST 

GET STATUS 

017V 

Cb 01 

BIT B #$01 

RDRF? 

01 7b 

2/ F9 

BEO *-b 

NO 

01 7D 

Cb 70 

BIT B #$70 

ERRORS? 

01 /P 

27 01 

BEQ *+3 

NO 

0181 

39 

RTS 

YES 

0182 

B6 8011 

LDA A TP 1 DAT 

GET BYTE 

0l*8b 

16 

TAB 


0186 

Fb 000F R 

ADD B CKSUM 

FORM CHECKSUM 

0189 

F7 OOOF U 

STA B CKSUM 


0I8C 

bF 

CLR B 


01 8D 

39 

RTS 



★ STOP 

TAPE AFTER A 

READ 

Olbb 

36 TIISTP 

PSH A 


0I8F 

86 17 

LDA A #$17 


0191 

87 8010 

STA A TP 1ST 


0194 

32 

PUL A 


019b 

39 

RTS 



★ START TAPE FOR OUTPUT 

0196 

3 / T20XZ 

PSH B 


0197 

36 

PSH A 


0198 

FF 01b1 R 

STX TXSV 


019B 

C6 17 

LDA B #$17 

MASTER RESET 

01 9D 

F7 8014 

STA B TP2ST 


01 AO 

C6 bD 

LDA B #$bD 

RTS**I 

01A2 

F7 8014 

STA B TP2ST 


01 Ab 

CE ObOO 

LDX #$0500 

DELAY 2 SECS. 

01 Ab 

BD 01CE R 

JSR TDELY 


01 AB 

32 

PUL A 


01 AC 

33 

PUL B 


01 AD 

FE 01b1 R 

LDX TXSV 


01 BO 

39 

RTS 



* WRITE A* BYTE TO TAPE 

01 B1 

37 T20UT 

PSH B 


0IB2 

F6 8014 T20UTA 

LDA B TP2ST 

GET STATUS 

01 Bb 

Cb 02 

BIT B #$02 

READY? 

01B7 

27 F9 

BEQ T20UTA 

NO 

01B9 

B 1 801 b 

STA A TP2DAT 

YES, WRITE BYTE 

01 BC 

33 

PUL B 


01 BD 

39 

RTS 



* STOP 

TAPE AFTER A 

WRITE 

01 BE 

4F T20STP 

CLR A 

WRITE PAD CHARS 

OIBF 

BD 0IB1 R 

JSR T20UT 


0IC2 

BD OIBI R 

JSR T20UT 


01 Cb 

BD OIBI R 

JSR T20UT 


OlCb 

86 17 

LDA A #$17 


01 CA 

B7 8014 

STA A TP2ST 


01CU 

39 

★ 

RTS 


01CE 

★ 

4F TDELY 

CLR A 



01CF 4C FDELYl INC A 
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BNE TDELYI 


01 DO 26 FD 


* 


01U2 09 



DEX 


0103. 26 FA 



BNE 

TOELY1 

010b 39 


* 

RTS 




* 





★ 



0106 0SU9 

R 

TABLES 

FOB 

★+$0403 

01 Dd OIDd 

R 

INBUF 

EQU 

★ 

01Db 030b 

R 

OTBUF 

equ 

★+$200 



★ 

END 



CKSUM 

OOOF 

R 

CRLF 

0006 

RX 

OXSV 

0014 

R 

EOF 

OOBE 

R 

GEi'B 

0016 

RN 

GEi'B 1 

002A 

R 

INBUF 

01 Ob 

R 

INEEE 

0003 

RX 

INITIO 

0051 

RN 

INPXR 

0010 

R 

MONTOR 

OOOC 

RN 

Oi'BUF 

030b 

R 

OTPTR 

0012 

R 

OUi'B 

003b 

RN 

OUTBI 

0047 

R 

P0ATA1 

0000 

RX 

ROl 

0070 

R 

R02 

009B 

R 

RD3 

OOAO 

R 

R04 

00 Ad 

R 

ROb 

OOAB 

R 

R06 

OOBI 

R 

RDBUF 

0074 

R 

TlGEf 

0176 

R 

T1INZ 

01 b3 

R 

T1ISTP 

016E 

R 

T20STP 

01 BE 

R 

T20TZ 

0196 

R 

T20UT 

01 B1 

R 

T2OUTA 

01 B2 

R 

TABLES 

01U6 

RN 

fAPERR 

00 F7 

R 

TOELY 

01CE 

R 

TOELY1 

01CF 

R 

TDRIVE 

0000 

RN 

fP1 DAT 

BOI 1 


TP 1 ST 

8010 


TP20AT 

801b 


TP2ST 

801 4 


TXSV 

01 bl 

R 

UPDATE 

0009 

RN 

rtREOF 

0062 

RN 

WRITBF 

01 IE 

R 

WRi'BFA 

0132 

R 

rfRXBFB 

0141 

R 

rtRi'BFC 

0149 

R 
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APPENDIX K 

ICOM Floppy Disk IO Listing 
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OORV OOOO RN 
DXSV 0009 R 
GETB OOOB RU 
INII'K) 002B RN 
MON 1OR 0006 RN 
OCNi'R 000 L) 

OUIB 001/ RN 
RcSi'R 0000 RN 
RIX h92V 
TABLES 002C RN 
LIROATE 0003 RN 
rtRtOh 0023 RN 
WRi E9AA 
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Index 


BADDR 2 
COMPAR 5, 6 
CRLF 2, 5/6 
GETB 2, 7 
INEEE 2,7 
LKPSYM 4,5 
LOAD 1,2, 3,4, 5 
LOADE 2,6 
LOADM 2,4,5 
LOADN 2,4,5 
LOADP 2, 3 
LOADR 2,3,5 
LOADX 2,5 
LOAD2 2, 3,4, 5 
MEMCHK 3,4,5 
MONTOR 2, 5 
OUTB 6,8 
OUTEEE 6 


OUTS 6 
OUT4HS 2,6 
PDATA1 2, 5,6,7 
PRYTSYM 2,5,6 
PUNCH 2,6 
RDBUF 7 
STOSYM 4,5 
TDELY 7 
T1GET 7 
T1INZ 7 
T1ISTP 7 
T20STP 7,8 
T20TZ 7, 8 
T20UT 7, 8 
UPDATE 6,8 
WREOF 6,8 
WRITBF 7 


Note: The page numbers in bold type face indicate either the definition or the primary reference to the item. 
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A Note About Bar Codes 


Bar codes are the newest form of machine readable data repre¬ 
sentation. They are used in all PAPERBYTE™ software pro¬ 
ducts in BYTE magazine articles and self contained book publi¬ 
cations and combine efficiency of space, low cost, and ease of 
data entry with the need for mass produced machine readable 
representations of software. Bar codes were originally used for 
product identification in inventory control and supermarket 
checkout applications. Today, because of their direct binary 
representation of data, they are an ideal computer compatible 
communications medium. In the application of bar codes to soft¬ 
ware distribution (such as PAPERBYTE books and articles), 
the use of a simple but reliable optical scanning wand and an 
appropriate program provides a convenient means for the user 
to acquire software. 

Our intent in making PAPERBYTE software available in 
bar code form is to provide a method of conveying machine read¬ 
able information from documentation to the memories and mass 
storage of a user’s system on a one time basis. We suggest that 
the user of software obtained in this manner should locally record 
the data on the mass storage devices of his system after the data 
has been scanned from the printed page. The PAPERBYTE bar 
code representations provide a standardized means of obtaining 
the data, but they cannot be compared to the convenience 
of local mass storage devices such as floppy disks, digital cassettes 
or audio cassettes. Thus if repeated use of the software obtained 
from bar code is anticipated, we recommend that the user make a 
copy on some form of magnetic medium. 

Bar Code Loader by Ken Budnik, the first in the PAPERBYTE 
series of software books, provides a brief history of bar codes, a 
look at the PAPERBYTE bar code format including flowcharts, a 
general bar code loader algorithm and well documented programs 
with complete implementation and checkout procedures for 
6800, 6502 and 8080/Z-80 based systems. 



LINKB8 

is a one pass linking loader which 
allows separately translated 
relocatable object modules to 
be loaded and linked together 
to form a single executable load 
module. It produces a Load Map 
and a load module in Motorola 
MIKBUG loader format. The 
Linking Loader requires 2 K 
bytes of memory, a system con¬ 
sole such as a Teletype, a system 
monitor such as the Motorola 
MIKBUG read only memory 
program or the ICOM Floppy Disk 
Operating System (FDOS), and 
some form of mass file storage 
such as dual cassette recorders 
or a floppy disk. 

It was the express purpose of the 
authors of this book to provide 
everything necessary so that the 
user can easily learn what he or 
she needs to know about the 
system. By providing not only the 
source code and PAPERBYTE™ 
bar code listings, but also a de¬ 
tailed description of the major 
routines of the Linking Loader, 
they intend to provide the user 
with an opportunity to learn about 
the nature of linking loader design 
and implementation, as well as 
simply acquiring a useful 
software tool. 
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